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Einfihrung 


Um dem BedUrfnis nach einer weniger verfahrens- als vielmehr 
informations-orientierten Methode zur Integration verschiedenster 
Betriebs—- und Arbeitsablaufe eines Unternehmens zu entsprechen, 
wurde IDS (integrierte Datenspeicherung) entwickelt. Dabei 
wurden die Erfahrungen mit IDS fur die Serien 400 und 6000 
entsprechend berUcksichtigt. IDS fUr die Serie 100 wurde etwas 
abgetindert und erweitert, daher sollte auch ein mit IDS vertrauter 
Programmierer dieses Handbuch genau studieren. 


Ziel bei der Entwicklung des IDS war es, dem Benutzer ein allgemein 
verwendbares Datenspeicherungssystem zu bieten, das zu einer 
Reduzierung der hohen System- und Programmierkosten fUhrt. Dieses 
Ziel wurde durch die Verwendung eines Speichers mit Direktzugriff 

und die Bereitstellung einer leistungsfihigen Datenorganisations— 
technik verwirklicht. Dazu wurde eine einfache, konzentrierte 
COBOL-thnliche Verarbeitungssprache fur die Anwenderprogrammierung 
entwickelt. 


Das vorliegende Handbuch gibt eine Beschreibung der dem IDS 
zugrundeliegenden Konzepte, der logischen und physikalischen 
Aspekte in bezug auf Daten- und Dateiorganisation und system- 
internen Speicherung. 


Systemanalytiker und Programmierer, die IDS anwenden wollen, sollten 
folgende Grundkenntnisse haben: 


- Erfahrung in der COBOL-Anwendung 
~ Erfahrung in der Dateiorganisation 


- APS- und allgemeine EDOS-Kenntnisse. 


a 


Ref.-Nr.: 32.30.206 D 
Juli 1973 


G-100 


——— na EEERmane eee 
Ref.-Nr.: 32.30.206 D 


Jul? 1973 


c 


G-100 


Allgemeines 
Grundkonzept des IDS 


Integrierte Datensysteme sind von der Struktur her ziemlich komplex. 
Ein konventionel!les System ist nach einzelnen Funktionen aufgebaut, 
wobei fUr jede Funktion eine umfangreiche Datei erforderlich ist. 
Obligatorische Querverweise, die die Wechselwirkung zwischen den 
einzelnen Betriebsfunktionen aufzeigen, erschweren die Ubersicht- 
lichkeit. Hiufig ist ein MitfUhren UberflUssiger Daten in den Dateien 
notig. Es sind nicht nur viele Programmldufe zur Verarbeitung solcher 
Dateien erforderlich, sondern die Ergebnisse mUssen dann auch noch 
koordiniert und in die richtige Beziehung zueinander gebracht werden. 


Es bedarf daher ganz offensichtlich eines Verfahrens zur Beschreibung 
der komplexen Informationsstruktur eines Unternehmens, einer Methode 
zur Handhabung der Daten in Ubereinstimmung mit dieser Struktur 
und einer Maschinensprache zur praktischen Anwendung des ent- 
wickelten Systems. Diesem Bedirfnis wurde fur die Anlagen der 

Serie G-100 mit dem IDS entsprochen, das eine handliche Methode 
zur Beschreibung komplexer Datenmengen durch die inhaltliche 
VerknUpfung der Datenstitze erméglicht. Die Satzverbindung wird 
durch die Verwendung der Kettungsmethode erreicht, um Quer- 
verweise und Querverbindungen zwischen den Sdtzen zu schaffen. 
Auf solchen Satzketten beruht im wesentlichen das integrierende 
Prinzip des IDS. 


Wahrend die vorhandenen verfahrens-orientierten Programmsprachen 
zwar die Programmierung bei der sequentieflen Satzverarbeitung 
erleichtern, sind sie nicht fUr die Direktzugriffsmethode bei Massen- 
speichern geeignet. Die aufwendige Arbeit der Organisation der 
Datenstitze sowie die Ausarbeitung der mit der Verarbeitung und 
Fortschreibung dieser Stitze verbundenen Logik bleibt somit dem 
Programmierer Uberlassen. 


Die [DS~Sprache bietet vereinfachte Méglichkeiten zur Satzver= 
arbeifung mit einem GroBraumspeicher mit Direktzugriff. Die 
Funktionen der Datenorganisation und der Logik-Entwicklung werden 
hier automatisch von IDS anstatt vom Programmierer ausgefuhrt. 
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Unter dem IDS ist also sowohl eine Methode zur Datenorganisation 
als auch eine Sprache zur Fortschreibung und Pflege der Daten zu 
verstehen. IDS hilft bei der Lésung von Anwenderproblemen durch 
Bereitstellung folgender Méglichkeiten: 


- Entsprechende Datenanordnung und -gliederung, um Datenredundanz 
innerhalb der Dateien weitestgehend auszuschalten; 

- Wirksame Datenpflege innerhalb einer festgelegten Struktur; 

- Schnelles Wiederauffinden der Daten, wenn diese bendtigt werden; 


- Definition des Bezugs der Daten zueinander. 


Erforderliche Hardware 
Die erforderliche Mindestkonfiguration fUr IDS ists, 


-eine Zentraleinheit G-l 18/120/130 mit 24 K-Kernspeicher, 
- ein Kartenleser, 

- ein Drucker, 

eine Plattenstevereinheit DSC 160/150/162/157 

- zwei Platteneinheiten DSU 160/150/162/157 


Erforderliche G-100 Software 
IDS ist eine Erweiterung von COBOL. 


Der IDS-Translator agiert als Vorlaufer zum COBOL-Compiler. 

Der Translator akzeptiert zwar die IDS- und COBOL -Source -Karten, 
Ubersetzt jedoch nur den IDS-Teil, und zwar in Source -APS-Befehle. 
Wihrend der Translation werden die APS- und COBOL-Befehle in 
der sogenannten "SOURCE-PROGS" -Datei fur die nachfolgende 
COBOL-Umwandlung bere itgestel lt. 

Der [DS-Translator ist nur im EDOS-Betriebssystem enthalten. 
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Anwendungsmigl ichkeiten 


Eine erfolgreiche Anwendung des IDS hingt von einer sorgfaltigen 
Analyse der Installationserfordernisse sowie von der Bestimmung 

der besten Datenstruktur ab. 

IDS nimmt dem Programmierer zwar viele komplizierte Arbeitsgdnge 
ab, doch bleibt es Aufgabe des Programmierers, IDS so einzusetzen, 
daB dies den Systemkriterien fUr eine spezifische Anwendung optimal 
gerecht werden kann. 


Vor der Ausfuhrung einer IDS-Anwendung mussen, unabhiingig vom 
Dateiaufbau, einige Punkte beachtet werden. SchlieBlich soll die 
Organisation Uber einen langen Zeitraum gUltig bleiben. Der Leser 
solite daher noch folgende Punkte mehrmals durchgehen um die 
verschiedenen Méglichkeiten der Datenorganisation zu prufen: 


1, Ubertriebene Genavigkeit beim Festlegen der einzelnen Ent- 
scheidungen ist zu Beginn der Entwicklung einer vorldufigen 
Datenbank zu vermeiden. Die verschiedenen Arbeitsgiinge 
sollten jedoch mindestens ein halbes Dutzend Mal wiederholt 
und Uberprtift werden. 


Zusammenstellung aller wichtigen Funktionen und Unterfunktionen. 


3. Graphische Darstellung der logischen Beziehung zwischen den 
Funktionen. 


Abschiitzung von Satzinhalt, GréBe und Umfang fur jede Satzart. 
Uberprufen der Punkte 1 bis 4. 


Entwicklung eines Dateiaufbau-Diagramms unter Verwendung des 
IDS-Stenogramms. 


7. Abschdtzung der Dateigréfe und Festlegung der Pagegréfe. 

8. Festlegung der Eintragungen fUr die Satzbeschreibung. 

9. Einteilung und Anordaung der Satzfelder entwickeln. 

10. Ketten-Master-Eintrag festlegen. 

11. Ketten-Detai!-Eintrag festlegen. 

12. Uberprifung der bis hierher geleisteten Arbeit. 

13. Besondere Methoden fur evtl. kritische Funktionen ausarbeiten. 
14. Uberprufung der Arbeit unter Zeitaspekten. 

15. Entwicklung von Testbedingungen. 


16. Nach erfolgreicher Anwendung der Testbedingungen Datenbank 
entwickeln; andernfalls EntwicklungsprozeB fUr die Daten- 
Organisation von Punkt 6 beginnen. 
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Seit seiner Einfthrung ist das Konzept der integrierten Daten- 
speicherung auf viele Bereiche angewandt worden. 

Die nachfolgenden Beispiele kénnen als typische Einsatzgebiete 
gelten: 


~ Projektsteuerung und -bemessung 


Mit Hilfe von IDS kann festgestellt werden, in welchem Verhiltnis 
Unternehmensorganisation, Auftrage, Projekte, Budget und Kosten 
zueinander stehen, um dem Management Daten fur eine korrekte 
Bewertung des Kosten-/Leistungsverhiltnisses in die Hand zu geben. 
Auf diese Weise ist IDS in der Lage, gewisse Verantwortungs- 
tichtlinien fur die Organisation und Steuerung von Projekten 
aufzuzeigen. 


a 


~ Elektrizitttsversorgungsnetze 


Indem Stromversorgungsanlagen, geographische Standorte und 
Versorgungsgeselschaften (d.h. Képerschaftsunternehmen, 
Versorgungs-Pools, Genossenschaften usw.) zueinander in 
Beziehung gebracht werden, kénnen durch Einsatz von IDS Vorher- 
sagen Uber den zukUnftigen Versorgungs- und Anlagenbedarf 
getroffen werden. Bei dieser Anwendung ist zu beachten, da® die 
untereinander verbundenen Versorgungsleitungen (Netze) sowie 

die zugehérige Ausstattung zu verschiedenen Anteilen den 
Teilnehmer-Gesellschaften gehdren. 


Unabhiingig von der Art des Einsatzgebietes haben jedoch alle 
Anwendungen ein gemeinsames Merkmal. 


Dieses besteht in der Méglichkeit von IDS, eine Anzah! von 

herkémmlicherweise als separate "Dateien" bezeichneten Daten~ ( 
mengen als eine Datei zu speichern. Gleichzeitig kann jede 

dieser Dateien Teil anderer Dateien sein, die wiederum individuell 

bearbeitet werden kénnen. Es mUssen keine Daten in eine andere 


Datei dupliziert werden. 


Die Hauptanwendungsgebiete fr IDS fallen daher dort an, wo 
verschiedene Daten zueinander in Beziehung zu bringen sind. 
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2. Entwicklungskonzepte fUr ein integriertes System 
2.1. Vergleich der Organisationsmethoden 
2.1.1. Konventionelle Dateiorganisation 


Bei der konventione!len Dateiorganisation kann z.B. die Ent- 
wicklung eines Verkaufsinformationssystems den Aufbau drei ver- 
schiedener Dateien erforderlich machen: 


- einer Verkaufsdatei mit den entsprechenden Bestel!ungen fUr die 
allgemeine Verarbeitung, 

- einer Lieferauftragsdatei zur beschleunigten Abwicklung, 

- einer nach Lagerartikelnummern geordneten Datei zur Produktions— 
und Bestandstberwachung. 


Abb. 1 zeigt die konventionelle Art des Deteiaufbaus. 


Die schraffierten Felder bezeichnen redundante Daten. Diese Sdtze 
werden in separaten Bereichen der Dateiplatte gespeichert (siehe Abb. 2). 


Verkdufer-Satz 


Lieferanten- 


Nr. 34692 


Adresse 
Jd. Lief. 


Hy 


Lieferanten= Liefer- 


7 
+ 34692 
yy Le lA 


Auftrag 
Nr. 122A 


Teil 
Nr. AAA 


Abb. 1: Konventionelle Satzformate 
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Der mit der Festlegung der Dateistruktur, des Satzinhalts und der 
Datenverbindungen verbundene Aufwand an Programmierarbeit ist 
umfassend und langwierig. 


Auch die Verarbeitung und Fortschreibung der gespeicherten Sitze 

ist zeitraubend. Zusammenhiingende Informationen werden in ver- 
schiedenen Abschnitten der Datei gespeichert. Auf die Sdtze mu 
einzeln zugegriffen werden, um die Fortschreibung vollstiindig bis zum 
Abschlu8 durchzufilhren (siehe Abb. 3). 


Wenn z.B. zum selben Zeitpunkt mehrere hundert oder tausend 
Lieferauftrage und gleichzeitig viele Bearbeitungsvorgiinge 
(Anderungen, neve Auftriige, Eingtinge, Bestitigungen usw.) 
anfallen, erfordert die Fortschreibung der Dateien eine betrachtliche 


€ 


Verarbeitungsze it. C 
2.1.2. IDS-Dateiorganisation 
Wie bereits erwahnt, werden mit der herkémmlichen Methode 
der Datenorganisation verbundenen Probleme durch IDS wesentlich 
vereinfacht. 
Lieferanten- { Lieferant 34692 Lieferant 26870 Sttze 
Datei 
Lieferauf- { Auftrag 122 A Auftrag 147 A 
tragsdatei 
Lager- Artikel AAA Artikel BBB 
artikel - { 
Datei 
UberlauF- 
bereiche Lieferauftrags -Sdtze 
Lagerartikel -Sdtze 
Abb. 2: Konventionelle Plattenspeicherorganisation 
G-100 Se 
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Plattenspeicher- 
einheit 


Lieferanten- Satz (Zugriff 1) 


Liefer= 
auftrags— 
Satz 


Abb, 3: Satzzugriff 


G-100 EE a neneenel 


Ref. -Nr.: 32.30.206 D 
Juli 1973 


=10- 


Abb. 4 zeigt den Aufbau der [DS-Satze im Vergleich zu der 
konventionellen Dateforganisation. 


Wie aus der Abbildung ersichtlich, enthalten die Satze keine 
tedundanten Daten. Der Lieferauffragssatz mu verknupft werden mits 
- dem Lieferantensatz, der den Namen des Lieferanten enthilt, 


- den Lieferpostensiitzen, die die bestellte Anzahl! und das 
Lieferdatum angeben, 


- den Lagerartikelsdtzen, welche die gekauften bzw. zu liefernden 
Artikel beschreiben. 


Lieferanten- Lieferant Verbindungs~ Lieferanten- 
satz Nr. 34692 | adresse name & Adr. 


Liefer- 
auftragssatz 


Liefer- 
posten= 


satz 


satz 
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Auftrag Verbindungs= | Verbindungs- Datum des 
Nr. 122 A | adresse adresse Auftrags— 
eingangs 


Posten Verbindungs- | Verb. Anzahl Liefer- 
Nr. 1 adresse adresse 15 datum 


Lagerartikel - Artikel -Nr.| Verbindungs- VerfUgbare 


AAA adresse Anzahl 
(auf Lager) 


Abb. 4: [IDS-Satzformat 


IDS beschreibt Satze und Felder in COBOL-dhnlichem Format. 
Die Daten sind in der Datei so organisiert, daB sie bei der Ver~ 
arbeitung leicht fortgeschrieben und wiederaufgefunden werden kénnen. 


rere 
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Ist der Dateiaufbau einmal festgelegt worden, braucht der 
Programmierer sich bef der Bearbeitung der Sttze nicht mehr 
um die VerknUpfung der Satze zu Satzketten oder um den 
Schutz der Daten vor unbeabsichtigtem Zugriff zu kummern. 


IDS-Sdtze werden nur ein einziges Mal gespeichert - im Gegensatz 
zur konventionellen Dateiorganisation, die hdufig eine Wieder- 
holung von Satzen in mehreren Dateien erforderlich macht. Durch 
die Maglichkeit der beliebigen Kettung von Satzen stehen ein- 
und dieselben Datenfelder fur alle verarbeiteten Satzketten zur 
Verflgung. Diese Methode des Ausschaltens redundanter Daten 
bietet vier wesentliche Vorteile: 


- Zustitzlicher Speicherplatz fur doppelte Sdtze wird eingespart. 


- Der mit der Datenpflege verbundene Aufwand wird erheblich 
reduziert. 


-Die Moglichkeit, daB eines der Duplikate eines Satzes nicht dem 
Original entspricht, entfallt. Da jeder Satz nur einmal existiert, 
wird jede falsche Information schnell erkannt und 


~Alle aus der Datei erstellten Auswertungen stimmen Uberein. 


IDS enthilt Befehle zur AusfUhrung der Speicherungs~ und Zugriffs— 
funktion. Diese Befehle werden in der COBOL PROCEDURE DIVISION 
nur als IDS-Konvention verwendet. Die eigentliche AusfUhrung der 
Befehle erfolgt durch Verarbeitungsroutinen. Der Einsatz dieser 
Routinen richtet sich nach der unterschiedlichen Verwendung der 
Befehle sowie nach den Datenbeschreibungen. 


a a EY, 
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Satzverkettung und -speicherung 


Innerhalb des IDS wurde eine neve Organisationsform die "Kette" 
festgelegt. Eine Kette wird gebildet, um die logische Beziehung 
zwischen Sétze zu definieren. Die Daten werden mit Hilfe von 
Kettenfeldern verkettet, um eine geschlossene Satzschleife mit nur 
einem Master zu bilden (siehe Abb. 5). 


Die Kettung ist das Hauptmerkmal im Dateiaufbau des IDS. 

Keiten enthalten alle Informationen Uber eine bestimmte Funktion. 
Eine Kette darf jeweils nur einen Master haben, der als Eintritts— 
punkt in eine Kette von Details dient und Angaben enthalt, die 
fUr jedes Detail der Kette gelten. Alle Verbindungen zu zuge- 
hérigen Informationen werden durch Ketten-Adressen hergestel it. 
Durch die hierarchische Struktur der Ketten kann ein Master 
Detail einer anderen Kette sein. Es gibt keine Redundanz bei der 
Speicherung und Fortschreibung der Daten. Durch den Aufbau des 
integrierten Systems in Form eines Netzwerks ist die Dateiabfrage 
und -verarbeitung wesentlich vereinfacht worden. 


Jede Kette kann aus einer variablen Anzahl! von Sdtzen bestehen, 
wahrend die Sutze ebenfalls zu einer beliebigen Anzahl von Ketten 


verknipft werden konnen. Auf diese Weise kénnen die Sdtze von allen 
Funktionsebenen eines Betriebes her abgefragt werden. Wahrend 

jedes Plattenzugriffs wird eine Page in den Kernspeicher Ubertragen. 
Zusammengehdrige Sdtze kénnen innerhalb einer Page auf der Platte 
gespeichert werden. 


Nach den Logikregeln des IDS sind "Sttze" entweder Master oder Detail. 


Master 


Master haben in einer Kette zwei wesentliche Funktionen. Sie dienen 


- als Eintrittspunkt in eine Kette von Details, und 


-enthalten gemeinsam verbindliche Angaben fUr jedes Detail in 


einer Kette. 


Details 


Details enthalten Informationen, die die vollstdndige Beschreibung 
des zur Prufung anliegenden Satzes geben. 
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Typische Beispiele fUr Master und Detail fallen bei der Aufzeichnung 
der zu einem Lieferauftrag gehdrenden Informationen an. Ein oder 
mehrere Details wurden erstellt und an jeden Lieferauftrag (Master) 
gekettet, je nach Anzahl der mit diesem Auftrag bestellten Artikel. 


Detail 1 


Abb. 5: Kette mit Master und Detail 


Wie Abbildung 5 zeigt, kann die Kette 0 -n Detail enthalten. 
In letzterem Fall wUrde der Master mit sich selbst verkettet. 


(siehe Abb. 6). 
Master 


Abb. 6: Nur aus dem Master bestehende Kette 
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Der Zweck der Kettenbildung liegt darin, Daten in logische, 
Beziehung zueinander zu bringen. Es ist z.B. denkbar, da 

ein Bauteil flr verschiedene Endprodukte verwendet wird. WUrde 
nun eine separate Teile-Datei fr jedes Endprodukt gefhrt, so 
wurden diese Teile~Informationen mehrfach in jeder Teile-Datei 
erscheinen. Nach dem IDS-Konzept erscheint die Teile-Information 
nur einmal, doch bleibt die Zugehtrigkeit zu jedem Endprodukt 
durch die Kettung an jede Teilekette gewahrt. Hier wird die 
eigentliche Leistungsfahigkeit von IDS deutlich: 


~ Verringerte Redundanz 
~ GréBere Genavigkeit. 


Treten hinsichtlich der Bauteile Anderungen auf, bedarf es nur . 
einer Anderung, die gleichzeitig fir alle betroffenen Dateien 


gilt. 


Aufgrund der Kettenstruktur ist es méglich, eine variable Anzahl 
von Sitzen mit dem Master zu ketten. Jede beliebige Anzahl 
Satztypen kann in einer definierten Kette zusammengefaBt werden. 


Ein Satz muB nicht Teil einer Kette sein. IDS bietet die 
Méglichkeit zur Einflgung, (INSERT) und Entfernung (REMOVE) 
von Sétzen in bzw. aus Ketten, je nach Datenbeschreibung. 


Master 
der Kette A 


Detail 
der Kette A 
Master 
der Kette B 


Kette B 


Detail 


Abb. 7: Ketten - Master der Kette A, Detail der Kette B 
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- Ein Satz kann Master einer beliebigen Anzahl von Ketten sein. 


- Ein Satz kann Detail in einer beliebigen Anzahl von Ketten sein. 
- Eine Kette darf nur einen Master enthalten, 


- Ein Satz kann Master einer Kette und Detail einer anderen Kette 
sein (siehe Abb. 7). 


Die einzi ge Einschréinkung besteht darin, da8 kein Satz ein Detail 
"von sich selbst" sein kann, weder direkt noch durch eine Wechsel- 
wirkung verschiedener Ketten. Abb. 8 zeigt eine solche "illegale" 
Konfiguration. Der Master der Kette A wird durch den Einflu® der 
Ketten B und C zu seinemeigenen Detail. 


In Abb. 8 stellt jedes Kastchen einen anderen Satztyp dar. 

Satz A ist der Master der Kette A und ein Detail der Kette C; 
Satz B ist Master der Kette B und Detail! der Kette A; Satz C 

ist Master der Kette C und Detail der Kette B. Da Kette A von 
ihrem Master A zu ihrem Detail B, dann weiter zum Detail C der 
Kette B und von dort zum Detail A der Kette C verliuft, wird der 
Master der Kette A zu seinem eigenen Detail. 


Satz A 


G-100 


Master 
der Kette A 
Detail 


Detail 
der Kette C 


Master 
der Kette C 


Satz C 


Detail 
der Kette B 
Kette A der Kette A 
Master 
der Kette B 


Kette B 


Abb. 8: Unzuldssige Kettenkonfiguration 
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3. Komponenten von IDS 


Vor der IDS-Anwendung ist das Versttindnis logischer Komponenten 
| erforderlich, die Teile der Objektprogramme sind. Dieser Abschnitt 
enthilt die Datenorganisation innerhalb des Objektprogramms. 


3.1. Datenorganisation 


Um die Méglichkeiten von IDS optimal nutzen zu kénnen, 

sind Kenntnisse der integrierten Datenspeicherung erforderlich. 
Gewéhnlich ist unter dem Begriff "Daten" ein Feld, ein Satz oder 
eine Datei zu verstehen. Bei IDS behalten die Begriffe Feld und 
Satz ihre klassischen COBOL-Definitionen bei. Das Konzept von 
Master oder Detail wird ebenfalls beibehalten. 


(e) Der Begriff "Datei" hat hier jedoch nicht die klassische Bedeutung. 
Gewéhnlich sind Dateien sachbezogen und sind nach einem 
sequentiellen System geordnet. Bei integrierter Datenspeicherung 
ist die Datei die Summe der verschiedenen Sachgebiete. Die 
Méglichkeit, viele verschiedene Sachgebiete auf einem Speicher- 
medium zur Verfligung zu haben und auf diese dennoch in kurzer 
Zeit zugreifen zu kénnen, ist aufgrund des Direktzugriffs gegeben. 


Eine IDS-Datei wird in Formvon Pages bearbeitet. Eine Page besteht 
aus einer vom Benutzer festgelegten Anzahl von Zeichen. Eine Page 
kann jede beliebige Kombination logischer Satztypen enthalten. 
Jedem Satztyp wird beim Systementwurf eine eigene spezifische Linge 
zugeordnet. Die Organisation der Page erméglicht die Dateipflege 
und gestattet es gleichzeitig, in jeder Page eine variable Anzahl von 
Satzarten unterzubringen. Jede Page beginnt mit einem Vorsatz, der 
verschiedene vom System benutzte Steverfelder enthult. Jede Page 

) endet mit einer Reihe von RECORD-LOCATOR* s (einen fur jeden 
Satz einschlieBlich des Page-Vorsatzes), die vom IDS benutzte 
Steverinformationen enthalten. Der freie Pageraum befindet sich am 
Ende der Page. 


Bei IDS wird wie bei COBOL davon ausgegangen, doB die Sutze festes 
Format und feste Lange haben. 
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Kim pesopt, pesteret slese Miglichkeit dem Benutzer, einmalige 
Ssiztyoan innarhs'b ces Systems zu spezifizieren, wobei jeder 
sein eipenas Tormot und seine feste Lunge hat. FUr jede System- 
steusrurg ¥ icd jedem Satztyp eine Satztypen-Nummer ein- 

en fir die Speicherung und das Wiederauffinden 


CRD IDENTIFIER ist eine logische, relative Adresse, die 
fest zugeordnet ist. Kettenfelder, die eine Verbindung 
szen in einer Kette herstellen, verwenden den RECORD 


estehen aus Datenfeldern und Kettenfeldern. Die Daten- 
2 bei der Planung festgelegt. Die Kettenfelder dagegen 


Der Benuizer muB die Kette beschreiben, d.h. er mu8 
als Master oder Detail definieren und die Sdtze in die 


fgen Anzahl von Detail, die ring- 
25miz mretnomier verboaden sind. 


Fir die \e-vemong vor. Cotes gist es zwei Grlinde: 


Zinn sae com orgecrscrt, wa ein Teil der Information mehrfach 
astrir, com’ cee receee Leten vermieden werden. 


er pee ot or oe Cattsrg besteht darin, da® mehrere 
rigwoiow cree ' scar Zusammenhang gebracht werden. 


ecw ly in eine Lette dient, ergibt sich daraus, 
terres 808, Moser wieh alle Dotail geléscht werden mUssen. 
Es it nw el or, re'.s 4. i6in Aer einen Master ohne Detail zu léschen. 


Ein wiz ashes aie, cei 460 drei Kattonfaldor fUr jode Kette, an 
der ar netaligh ih. Ss Cobtenfald HEAT erschoint dabei immer und 
gibt dea Larrrvrenkorg dor Gites uns 


Das zneite migiicie Mottenfald ist dus Vettouteld PRIOR, das dann 
angelegt wird, ners die Vette als LINIKED PRIOR deflntert wurde, 

Dieses Ketrenfeld ser veist uf den vorherlyen Sutz Inder Kette. 

Dadurch bonnen BiG? etter in beider Mehtungen durchlaufen werden. 
Das dritte migliche Fettenfeld serbirelet ein Detull direkt mit einem 
Master. Eine HEAUEP~Fette entheilt Ueteils mit dem Kettenfeld MASTER; 
auf diese Meise siel die Leteils mit threm Muster verbunden, 
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Um die Beziehung zwischen den Satztypen optisch darzustellen, 
werden Stenogramme benutzt. Sie sind bereits in den Abb. 5 und 6 
im vorangegangenen Abschnitt enthalten, um verschiedene Ketten 
zu zeigen. 

Die Regeln werden nach der Beschreibung der verschiedenen Ketten 
gegeben. An dieser Stelle genlgt es zu sagen, daB ein Satztyp durch 
rechteckige KUsten dargestellt wird und Pfeile die zum Satztyp 
gehirende Kette anzeigen. 


Durch thre Ubersichtlichkeit unterstUtzen die Datenaufbav-Steno- 
gramme die Erstellung hochentwickelter Informations-Strukturen. 
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3.1.1. Pages 


Der Begriff "Page" hat in diesem Zusammenhang dieselbe Bedeutung 
wie ein Block auf Magnetband. Eine Page enthilt einen oder mehrere 
logische Sdtze. Eine Kette kann in eine solche Page hineinpassen 
oder sich tber mehrere Pages erstrecken. 


1 


Die maximale Anzahl Sétze innerhalb des Page -Nummern-Systems ist 20 = 
(16.777.215). Die pro Page zulussige Anzah! Sdtze kann innerhalb 
zusammenhiingender Page -Bereiche der Datei variieren und braucht 

keine Potenz von 2 zu sein. Wenn ein IDS-Befehl die Ubertragung 

eines Datensatzes verlangt, wird jeweils eine ganze Page Ubertragen. 


Das von IDS erstellte Programm schreibt die angegebenen Pages 

in die zugeordnete Speichereinheit. Bei der Programmausflhrung C 
werden die Pagenummern in entsprechende Hardware ~Adressen 
konvertiert. Dies geschieht natUrlich durch das Betriebssystem. 
Bei Erweiterung der Maschinenausstattung ist keine Anderung im 
IDS-Programm des Benutzers oder eine Nevorganisation der IDS- 
Datei notwendig. 


Die optimale Nutzung der Platteneinheit hdngt von der Wahl der 
PagegréBe ab. Eine Page belegt immer eine ganze Anzahl von 
Sektoren. Mindestens 1 Sektor ist notwendig; das Maximum ergibt 
sich aus den erforderlichen Sektoren, die zur Speicherung einer 
Page notwendig sind: 


1 Sektor nimmt 288 Zeichen auf, z.B. 4320 Zeichen 
einer Page belegen 4320:288 = 15 Sektoren. 


Uberschreitet eine Page 288 Zeichen oder ein ganzes Vielfaches 
hiervon, wird der nachste Sektor vol!sttndig belegt, auch wenn nur ig 
einige Restzeichen enthalten sind. 


Z.B. 300 Zeichen ergeben 2 Sektoren, im 2. Sektor sind jedoch 
nur 12 Zeichen enthalten. 


Der Platz fr eine Datei mu8 durch die Order .SFD (siehe EDOS- 
Handbuch) auf der Platte reserviert werden. Die Belegung ergibt 
sich aus der Pagegréfe (in Sektoren) und Anzahl der Pages = Anzahl 
Sektoren. 
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Da pro Zylinder 100 Sektoren vorhanden sind, ergibt sich durch 
Aufrunden und Division durch 100 die Zahl der ben&tigten 
Zylinder: 


Beispie!: 

Pagegrdfe: 2.880 Zeichen = 10 Sektoren 
Anzahl Pages: 1.285 = 12.850 Sektoren 
Aufgerundet 12.900 Sektoren 
Dividiert durch 100 129 Zylinder 
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Folgende Merkmale einer [DS-Page missen beachtet werden. 


- Sie hat eine feste Gréfite (maximal 15 Sektoren) 
(288 x 15 = 4320 Zeichen). 


~ Sie besteht aus einem oder mehreren Sitzen, die zusammen 
die Gréfe der Page darstellen. 


- Die maximal Anzahl von Datensiitzen innerhalb einer Page 
wird begrenzt durch die maximale GréBe der Page. 


- Die Anzahl von Datensiitzen pro Page Uber eine Page-RANGE 
mv8 bei Initialisierung der Datei angegeben werden. Jede Page -RANGE 
kann eine verschiedene Anzahl von Datensitzen pro Page aufweisen. 
Der RECORD IDENTIFIER wird sequentiel! verwendet und bereit = 
gestel!t. 


- Die Page wird im 8-Bit-Modus aufgezeichnet. .) 
Anmerkung: 


- innerhalb einer Page sind die RECORD IDENTIFIER nicht 
sequentie!| geordnet. 


. Neve Sdtze werden am Ende einer Page auf freien Stellen 
gespeichert. 


. Die RECORD IDENTIFIER geléschter Sétze werden neven Sdtzen 
zur Verflgung gestellt, wobei mit dem ersten Wert begonnen wird. 


. Jede Page ist mit einem 10-stelligen Kennsatz versehen. 
Vor dem Erstellen einer Datei mUssen diese Vorstitze durch das 
Programm FILE-INT initialisiert werden. Das Programm ist im 
EDOS enthalten. 


- Der Page-Kennsatz enthilt verschiedene von IDS benutzte Felder. g} 
Eins dieser Felder (Leerstellenzihler) zeigt den verfUgbaren Platz 
an. Das CALC-NEXT-Kettenfeld enthalt den RECORD IDENTIFIER 
des ersten Datensatzes der Keite, die durch Adressenrechnung in 
diese Page gelangt sind (siehe "kalkulierte Ketten"). Der Page- 
Kennsatz und die RECORD LOCATOR sind dem Programmierer 
nicht zugiinglich (siehe Anhang H). 

- Die RECORD LOCATOR werden fUr den Page -Kennsatz und die 
Datenstitze vergeben. 

= Die RECORD LOCATOR geben Auskunft Uber die Position des Satzes 
in der Page, Uber den Satztyp und enthalten den DELETE SWITCH. 
Da der Page -Kennsatz nicht geléscht werden kann, ist der 
DELETE SWITCH fur den Page-Kennsatz der MUST-WRITE-SWITCH. 
Damit werden Anderungen von Sttzen angegeben. Diese RECORD 
LOCATOR sind in umgekehrter Reihenfolge zu den Datensdtzen 


aufgezeichnet. gq: 
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Wenn ein Satz physikalisch geléscht wird, wird sein RECORD LOCATOR 
auf Null gesetzt. Die so frei gewordenen RECORD LOCATOR werden 
fur nev eingespeicherte Sdtze benutzt. 


Die Abb. 9 zeigt insgesamt 17 Siitze (plus Page-Kennsatz, der immer 
die Nummer 255 hat) in einer Page. Die RECORD LOCATOR der 
Sutze 1, 2, 4, 7, 9, 15, 17 und des Page-Kennsatzes sind zur Zeit 
aktiviert. So enthalten nur diese RECORD LOCATOR einen Wert 
ungleich Null; die anderen sind geldscht. 


Satz 255 Page -Kennsatz 
) Satz 4 


I TTI Trritiryrd 
70150000090700402 1 255 
Satz 17 | (RECORD LOCATOR) Satzpositionswérter 


Abb. 9: IDS-Page 
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Suitze 


Die Stitze haben festes Format und feste Lange entsprechend den 
Grundstitzen von COBOL; d.h. die Lange und das Format eines 
bestimmten Satztyps (TYPE) wird durch die Spezifikationen des 
Systemplaners festgelegt. In diesem System kénnen aber auch viele 
verschiedene Satztypen mit eigener Ltinge und eigenem Format 
verwendet werden. Damit die Steuerung nicht verlorengeht, hat 
jeder Satz Felder fur Kettenadressen und RECORD LOCATOR. 

Der Rest des Satzes besteht aus Datenfeldern entsprechend der 
Satzbeschreibung. IDS erweitert diese Sdtze um Stever- und 
Kettenfelder, wie in Abb. 10 dargestellt. 


Die Stitze kinnen eine beliebige Anzahl von Datenfeldern ent- 
halten. Diese Felder kénnen nach GréBe und Art verschieden sein. 


Die Kettenfelder enthalten die RECORD LDENTIFIER anderer 
IDS-Sttze. Sie verweisen von einem Satz zum nichsten und schaffen 
so eine ringférmige Verbindung zwischen den Sutzen. Diese Ketten 
werden entsprechend den Definitionen und den entsprechenden 
Befehlen automatisch bearbeitet. 


Pe ee ed 


Kettenfelder Datenfelder RECORD LOCATOR 
am Ende der Page 


Abb, 10: Satz im IDS 


Die RECORD IDENTIFIER stellen die relative Plattenadresse eines 
Satzes dar. 


Um eine Verbindung zwischen dem Benutzerprogramm und IDS zu 
haben, steht der RECORD IDENTIFIER in einem dreistelligen Feld 
(DIRECT REFERENCE) bindr zur VerfUgung, 


Die im RECORD IDENTIFIER enthaltene Information vergibt fur jeden 
gespeicherten Satz eine Adresse. 
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Einige wichtige Hinweise bezUglich RECORD IDENTIFIER: 


~ IDS ordnet die RECORD IDENTIFIER den Stitzen beim Ein- 
speichern zu. 


~ IDS stellt dem Benutzer in einem Feld (DIRECT-REFERENCE) 
den RECORD IDENTIFIER binér zur Verflgung. 


Der RECORD IDENTIFIER ist die logische Adresse des Datensatzes 
auf der Plotte. 


Ketten und Kettenfelder 


Kettenfelder werden fUr jede Kette definiert, an der ein Satz 
beteiligt ist. Sie werden von den IDS-Routinen zur Datenbearbeitung 
benutzt. Dem Programmierer sind sie nicht zuga@nglich. Wenn ein 
Datensatz in die WORKING-STORAGE Ubertragen wird, werden 

die Kettenfelder nicht mit Ubertragen. 


Kettenfelder kénnen vom Benutzer in Kettentabellen zugtinglich 
gemacht werden, die auf Assemblerstufe angesprochen, aber nicht 
verdndert werden dUrfen. Flr jeden im System definierten Ketten- 
typ wird eine Tabelle gefuhrt. 


Die Kettenfelder sind die Bindeglieder fur den Weg, den die IDS- 
Routinen bei der Verarbeitung der Daten benutzen mUssen. 


Ein Satz ist im Durchschnitt an zwei Ketten beteiligt. Es gibt drei 
Arten von Kettenfeldern: NEXT, PRIOR und HEAD. Diese Ketten- 
felder enthalten die Bezugsadresse des néichsten (NEXT), voran- 
gegangenen (PRIOR) oder Master (HEAD) Satzes in der Kette. 


ree 
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3.1.3.1. NEXT-Ketten 


Abbildungen 11 und 12 zeigen Satze mit NEXT -Kettenfeldern. 
Es ist zu beachten, da® beim Erstellen von Stenogrammen von 
NEXT -Ketten dies Pfeile nur in eine Richtung und entgegen 
dem Uhrzeigersinn’weisen dirfen. 


Abbildung 12 stellt einen Satz dar, der Master von zwei Ketten ist: 
von Kette A und Kette B. Beide Ketten schlieBen mit dem Master. 


- Ein Kettenfeld enthilt den RECORD IDENTIFIER eines anderen 
Satzes in der Kette. 
- Fur jede Keite, an der der Satz beteiligt ist, ist mindestens 
ein Kettenfeld vorhanden. Dies ist das Ketrenfeld NEXT, das 
auf den niichsten logischen Satz verweist. € 


Abb. 11: Einfachkette 
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Master von 
KettenA u. B 


Detail von 
Kette B 


Detail von 
Kette B 


Detail von Detail von 
Kette A Kette A 


Abb. 12: Doppelkette 


Im gezeigten Master (Abb. 12) gibt es zwei NEXT-Kettenfelder. 
y Das eine verweist auf das Detail von Kette A, das andere auf 
a das Detail in Kette B. 
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3.1.3.2. PRIOR-Ketten 


In jedem Satz kann ein PRIOR-Kettenfeld (neben dem NEXT - 
Kettenfeld) vorhanden sein. Das PRIOR-Kettenfeld wird in 
alle Sttze der Kette eingefUgt, wenn der Master der Kette 
als PRIOR definiert worden ist. (LINKED PRIOR oder CHAIN 
ORDER BEF ORE}. 


PRIOR-Ketten kinnen mit gleicher Leistungsfihigkeit in beiden 
Richtungen bearbeitet werden. Bis jetzt wiesen die Pfeile nur in 
eine Richtung. Eine PRIOR-Kette hat jedoch Pfeile, die in beide 
Richtungen zeigen, wie aus Abb. 13 ersichtlich. 


Abb. 13: PRIOR-Kette 


Angenommen, der Master in Abb. 12 ist gelesen worden und es soll £ 
der letzte Detail (Detail N} gelesen werden. Ist die Kette als 

PRIOR definiert, und es wurde ein RETRIEVE PRIOR-Befehl gegeben, 
so entnimmt IDS den RECORD IDENTIFIER von Detail N aus dem 
PRIOR-Kettenfeld des Masters und liestdas Detail N. Ware die 
Kette nicht als PRIOR definiert, so wUrde IDS die ganze Kette 

Uber Detail 1, Detai! 2, ... ete. durchlaufen, bis esdas Detail N 
findet (dessen NEXT-Kettenfeld auf den Master verweist). Die 
Entscheidung, eine Kette als PRIOR zu definieren, hangt von der 
Zeit oder Platzersparnis ab. Die Definition einer Kette als PRIOR 
spart Zeit, kostet aber Platz. Bei einer als PRIOR definierten Kette 
enthalt jeder Satz ein PRIOR-Kettenfeld. 

(Siehe LINKED PRIOR und CHAIN-ORDER BEFORE.) 
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Nur der Master kann ein PRIOR-Kettenfeld enthalten. Dieser Fall 
tritt ein, wenn neve zur Kette hinzugekommene Details in die 


LAST-Position (CHAIN-ORDER LAST), d.h. in die letzte Stelle 
eingefUgt werden soflen. (Siehe Abb. 14 und 15.) 


Detail 
Nr. 1 
Abb. 14: Grundform einer Kette 


Detail 
Nr.n+1 


Detail 
Nr. 1 


Abb. 15: In die LAST-Position der Grundkette eingefligtes Detail 
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Abb. 15 zeigt ein Detail, das als LAST-Position in die in Abb. 14 
dargestellte Kette eingeftigt worden ist. In der Abbildung ist 

eine PRIOR-Verbindung zwischen dem MASTER und dem LAST -Satz 
in dee Kette zu erkennen (Pfeile zeigen in zwei Richtungen). Die 
Details zeigen keine PRIOR-Verbindung (Pfeile nur in einer 
Richtung); sie enthalten kein Kettenfeld PRIOR. Wie in Abb. 14 
und 15 gezeigt, gibt CHAIN-ORDER LAST nur dem Master ein 
PRIOR-Kettenfeld. 


HEAD-Ketten 


Ein weiteres Feld ist das HEAD-Keitenfeld. Mit seiner Hilfe werden 

die Details Uber ein Kettenfeld, das den RECORD IDENTIFIER des 

Master enthalt, direkt mit dem Master (LINKED TO MASTER) 

verbunden. (Siehe Abb. 16.) ¢ 


Abb. 16 zeigt eine HEAD (LINKED TO MASTER)-Kette. Durch sie 

wird es miglich, direkt zum Master zu springen. Es ist unnétig, 

alle Satztypen von Details mit HEAD-Kettenfeldern zu versehen. 

Die Anwendungserfordernisse lassen erkennen, welche Details mit 

dem Master direkt verbunden (LINKED TO MASTER) werden mussen. 

In Stenogrammen werden diese durch Pfeile von jedem Detail direkt zum 
Master dargestellt. 


=e ee 


Abb. 16: HEADED-Kette 
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Kalkulierte Ketten 


Die Anfangsadresse einer kalkulierten Kette wird ermittelt, indem 
mit Hilfe spezifizierter Datenfelder eine Zufallszahi (Adressen- 
rechnung) errechnet wird, die eine Page-Nummer bildet. Der 
Page -Header wird aufgegriffen und der Satz wird in der ersten 
Page gespeichert, die genUgend Platz bietet (siehe Abb. 17). 

Der Satz wird Glied dieser Kette. Der RECORD IDENTIFIER 

wird bindr zur Verfligung gestellt. 


Der Page-Header, dessen Adresse errechnet wird, ist der Master 
der CALC CHAIN. Der Zugriff erfolgt unter Ausnutzung seiner 
Eigenschaft als Detail einer kalkulierten Kette (CALC CHAIN 
DETAIL). IDS fuhrt mit dem Inhalt der angegebenen Felder 
AdreBrechnungen aus, sucht den Master und sucht die CALC CHAIN 
ab, bis das richtige Detail gefunden worden ist. 


Beispiel: 


Fur einen neuen, in einer CALC CHAIN einzuspeichernden Satz 

mu8 durch Umrechnung die Adresse des Headers von Page x ermittelt 
werden. Ferner ist in Page x genUgend Platz zur Aufnahme dieses 
Satzes vorhanden. In Abb. 18 ist gezeigt, an welcher Stelle der neve 
Satz eingeflgt wurde. 
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Header fur Page x Header fur Page x 


Erster CALC- 
Detail von 
Page x 


Erster CALC- 


Detail von Page x 


Zweiter CALC- 
Detail von 
Page x 


Zweiter CALC- 
Detail von 
Page x 


Neuer dritter CALC- 
Detail von Page x 


Page y 


Vorsatz fur Page y 


Vorsatz fur Page y 


Dritter CALC- 
Detail von 
Page x 


Alter dritter, jetzt 
vierter CALC -Detail 
flr Page x 


Abb. 17: Schematische Darstellung Abb. 18: Never Satz, der einer 
einer kalkulierten Kette kalkulierten Kette hinzu- 
geflgt wurde. 


SS 
Ref. -Nr.: 32.30.206 D 


Juli 1973 


3.1.4. 


-33- 


Kettenbearbeit ung 


Drei Arten der Kettenbearbeitung gewdhrleisten eine vollstdndige 
Flexibilitit beim Aufgreifen der Sdtze (in Abb. 19 gezeigt). 


~ NEXT -Kette 


jeder Satz einer Kette erhdlt automatisch ein NEXT -Kettenfeld. 
Auf diese Weise werden alle Ketten aufgebaut. Jeder Satz enthilt 
ein CHAIN-NEXT-Feld, das den RECORD IDENTIFIER des niichsten 
Satzes in der Kette angibt. 


- PRIOR-Kette (wahl frei) 


IDS versieht alle Sdtze einer Kette mit einem PRIOR-Kettenfeld, 
wenn die Kette als PRIOR spezifiziert worden ist. (Bei LINKED 
PRIOR oder CHAIN-ORDER-BEFORE erhalten die Sdtze ein 
PRIOR-Kettenfeld). Dieses Feld enthalt den RECORD IDENTIFIER 
des vorangegangenen Satzes. Dadurch kann die Kette in RUckwarts- 
tichtung bearbeitet werden. (Bei CHAIN-ORDER LAST erhalt 

nur der Master ein PRIOR-Kettenfeld.) 


- MASTER-Kette (wahlfrei) 


IDS sieht ein MASTER-Kettenfeld flr Details vor, wenn dies 
angegeben ist: Dieses Feld enthalt den RECORD IDENTIFIER des 
Masters. Das Auffinden des Masters geht schneller, da hierbei der 
Master direkt von jedem Detail aus angesprochen werden kann. 
Dadurch braucht die Kette nicht sequentiell bis zum Master durch- 
laufen werden. 


G-100 


Abb. 19: Kettenverarbeitung 
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Master 
RECORD IDENTIFIER 
= 101 


Detail n 
RECORD IDENTIFIER 
= 407 


Detail 1 
RECORD IDENTIFIER 
= 105 


Detail! 2 
RECORD IDENTIFIER 
= 205 


Abb. 20: Kette mit Pseudo RECORD IDENTIFIER 


Kettentabellen 


Kettentabellen werden von den IDS Unterroutinen intern benutzt. 
Fur jede Kette, in der eine beliebige Master-Satzart definiert wird, 
legt IDS eine Kettentabelle an. Obwoh! der Programmierer diese 
Tabellen zwar ansprechen, aber nicht verdndern kann, kann ihre 
Kenntnis die Planung leistungsfihiger Ketten erleichtern. 


Eine Kettentabelle besteht aus vier Eintragungen: MASTER, PRIOR, 
CURENT und NEXT. Beim Durchlaufen einer Kette werden die Ein- 
tragungen mit den RECORD IDENTIFIER der Datenstitze fortge- 
schrieben. Beim Start eines Programms oder bei unbekannten 
Eintragungen, ist der Wert gleich Null. 
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nies 


Zur Veranschaulichung von Kettentabellen sei angenommen, da8 
nur der RECORD IDENTIFIER des Masters bekannt ist. Wenn IDS 
nun Detail 2 von Kette B suchen soll, wird der Master von Kette B 
gelesen und die Kette durchlaufen, bis Detail 2 gefunden wird. 
Beim Durchlaufen der Kette schreibt IDS die Kettentabelle fort. 
Wenn Detail 2 gefunden ist, sieht die Kettentabelle wie in 

Abb. 21 gezeigt, aus. 


Abb, 21: Kettentabelle nach dem Aufgreifen von Detail 2 


~von Kette B 
- Satz unmittelbar vor dem gewUnschten Satz in Kette B 
- gewUnschter Satz von Kette B 


- Satz unmittelbar nach dem gewUnschten Satz in Kette B 


Auch wenn die Kette nicht PRIOR ist und nicht als LINKED TO MASTER 
definiert ist, ist Detail-!] durch einen Befehl RETRIEVE PRIOR OF B 
CHAIN direkt verfugbar. Der Master ist direkt verfUgbar durch den 
Befeh! RETRIEVE MASTER OF B CHAIN. Aufgrund der PRIOR -Eintragung 
in der Kettentabelle (in Abb. 21) wurde IDS die Kette nicht vorwdrts 
bis Detail-3, Master etc. durchlaufen, um Detail-1] zu finden, sondern 
Detail -] wurde direkt mit der in der PRIOR-Eintragung der Kettentabelle 
enthaltenen Adresse aufgegriffen. Detail 1 durch "Zurtcksetzen" 
gefunden wurde, ist aber der vor Detail 1 gespeicherte Satz nicht 
bekannt, wenn er nicht als LINKED PRIOR definiert ist. Die 
Kettentabefle wurde dann wie Abb. 22 gezeigt aussehen. 


- nicht bekannt 


Abb. 22: Kettentabelle nach ZurUcksetzen auf Detail 1 
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Sieht die Kettentabelle so aus wie in Abb. 22 und ein 

RETRIEVE PRIOR OF b CHAIN" -Befehl wird ausgefUhrt, so wUrde 
IDS die NEXT-Kette bis zum Antreffen des PRIOR-Satzes (in 
diesem Fall der Master) durchlaufen. Die Kettentabelle wird 
dann fortgeschrieben, wie in Abb. 23 gezeigt. 


Abb. 23: Kettentabelle fur eine Nicht-PRIOR-Kette 6 


Ist die Kette als PRIOR definiert, wird die Kettentabelle wie in 
Abb. 24 fortgeschrieben. 


Abb. 24: Kettentabelle fUr eine PRIOR-Kette nach dem 
Aufgreifen von Detail 1 


IDS kann den PRIOR-Satz oder den Master-Satz einer Kette auf eine 
von drei Arten aufgreifen: 


~die in der IDS SECTION verwendeten LINKED PRIOR- oder 
LINKED MASTER-Optionen ergeben eine direkte Adresse. 


= die Speicherstelle ist bekannt, da die Kette schon Uber diese 
Stelle bearbeitet worden ist. 


- NEXT ist immer bekannt, IDS kann die ganze Kette durchlaufen. 


¢ 
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Es sei angenommen, dafi der RECORD IDENTIFIER von Detail 2 
bekannt ist und die Kette weder HEADED noch PRIOR definiert ist. 
Wenn ein RETRIEVE DIRECT (Detail 2) ausgefuhrt wird, so wird 

die Kettentabelle wie in Abb. 25 gezeigt, fortgeschrieben. 


- (unbekannt) 
- (unbekannt) 


Abb. 25: Kettentabelle nach dem direkten Aufgreifen von Detail 2. 


Da die Kette weder PRIOR noch HEADED (LINKED TO MASTER) 
ist (d.h. die Details haben kein Feld, das die Adresse des Masters 
enthilt) und IDS beim Zugriff auf den CURRENT-Satz nicht den 
PRIOR-Satz oder den MASTER-Satz passierte, da dieser direkt 
gelesen wurde, ist weder RECORD IDENTIFIER des Master noch des 
PRIOR~Satzes bekannt. 


Aufgrund des NEXT -Kettenfeldes in Detail 2 wei8 IDS, wo der 
NEXT-Satz steht. Ware die Kette als PRIOR und als HEADED 
definiert und Detail 2 wird durch RETRIEVE DIRECT ermittelt, 
erscheint die Kettentabelle wie in Abb. 26 gezeigt. 


master | 101 | 


CURRENT 


Abb. 26: Kettentabelle - PRIOR und HEADED 


In diesem Fall sind die MASTER~ und PRIOR-Bezugsadressen aus den 
Kettenfeldern in Detai{ 2 verfUgbar. Das gleiche Ergebnis tritt ein, 
wenn in diese Kette von einer anderen Kette aus verzweigt wird und 
die Kette als PRIOR und HEADED definiert ist. Andernfalls steht 

die Tabelle wie Abb. 25 aus, wenn nicht eine der Bearbeitungs- 
optionen (LINKED PRIOR oder MASTER) verwendet wird, dabei wird 
dann der jeweilige RECORD IDENTIFIER an der entsprechenden Stelle 
in der Kettentabelle eingetragen. 
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Kettenordnung 

Alle Ketten sind nach einer von sechs Methoden geordnet, die 

mit Hilfe der CHAIN-ORDER-Eintragung in der IDS SECTION 
spezifiziert wird. 

Der CHAIN~-ORDER -Befehl mu8 in jeder Eintragung zur Definition 
einer Master-Kette verwendet werden; ist folglich eine Funktion 
aller Satztypen in der Kette. 

Die sechs CHAIN -ORDER -Anweisungen sind: 

- SORTED WITHIN TYPE 


Die Satze der Kette werden jeweils innerhalb einer Satzart 
und unabhingig von anderen Satzarten geordnet. 


- SORTED 
Die verschiedenen Sdtze werden ohne RUcksicht auf die Anzahl 
der Satzarten in eine einzige Reihenfolge gebracht. Hierbei 
mUssen die Sortierfelder der verschiedenen Sdtze gleich grof sein. 


Anmerkung: 


Wenn eine der beiden SORTED ~Méglichkeiten spezifiziest wird, 
werden Details entsprechend dem Inhalt ihrer Sortierfelder eingefUgt. 


- FIRST 

Das Detail wird als erster Satz in Relation zum Master eingefigt. 
~ LAST 

Das Detail wird als letzter Satz in Relation zum Master eingefUgt. 
~ BEFORE 

Einfugung des Details direkt vor dem laufenden Satz. 


~ AFTER 


Das Detail wird unmittelbar nach dem laufenden Satz eingefugt. 
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Primérketten 


Die Zugriffszeit bei den Plattenspeichern ist sehr unterschiedlich, 

da sie von der relativen Position des gewUnschten Satzes zum 

letzten gelesenen Satz abhiingt. Die Datenorganisation von IDS 
triigt diesem Problem Rechnung und speichert neue Details so nahe 
wie méglich zum Master. Wenn ein Satz als Detai! in verschiedenen 
Ketten spezifiziert ist, kann eine Primirkette definiert werden. 

Die Auswahl einer Primirkette sollte darauf basieren, welche Kette 
erwartungsgemd8 am aktivsten ist (PLACE NEAR). Wenn eine 
IDS-Page gelesen wird, die den Master einer Primirkette enthalt, 

ist die Wahrscheinlichkeit sehr groB, daB die Details dieser Kette 
sich in dieser Page oder einer benachbarten Page befinden. Die 
Primtrkette dient zum Lesen eines untergeordneten Satzes 
{RETRIEVAL VIA Kettenname CHAIN) mit Hilfe des RETRIEVE-Befehls, 
wenn nichts anderes (PLACE NEAR) spezifiziert wird. 


Datenstruktur -Stenogramm 


Viele der fr Datenstruktur-Stenogramme geltenden Regeln wurden 
bereits in den vorhergehenden Abbildungen dargestel lt. 


Nachfolgend werden die Regeln zusammengefaft und durch die- 
noch nicht gezeigten erginzt. 


Satztypen 


Die Satztypen werden als rechteckige Kustchen dargestellt. 


| 


Bei CALC~-Detail-Satztypen wird die Grundlinie des Rechteckes 
doppelt gezeichnet. 


en | 
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3.1.8.2. Ketten 


Die zu einem Satztyp gehirende Kette wird durch einen Pfeil 
dargestellt. Die Pfeile der NEXT-Kette weisen gegen den 
Uhrzeigersinn. 


~ PRIOR~Ketten werden durch zwei Richtungspfeile dargestellt G 


- LINKED MASTER-Ketten sind an Pfeilen erkenntlich, die direkt 
von einem Detail zum Master zeigen. 


-Wo der Master den Speicherungsvorgang stevert und sehr schnelle 
speicherinterne Kettenverarbeitung zu erwarten ist, wird ein doppelt 
gezogener Pfei! verwendet. 


¢ 
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- Zur Beschreibung einer Kette mit zwei oder mehr verschiedenen 
Typen von Details wird ein Pfeil mit Vertstelungen verwendet: 


aoe 


- Um ausdricklich darauf hinzuweisen, dal’ mehr als eine gemeinsame 
Beziehung zwischen einem Master und seinen Details besteht, 
kénnen zwei Pfeile das Vorhandensein von mehr als einer Kette 


anzeigen: 


- Bei IDS-Versionen, die sowohl bedingte als auch unbedingte Kettung 
gestatten, werden bedingte Ketten durch einen gestrichelten Pfeil 
dargestellt. Ein gestricheltes Késtchen wird zur Darstellung eines 
Satztyps verwendet, der z.Zt. noch nicht verwendbar ist, spiter 
aber miglich sein wird. 
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Ketten-Kurzdarstellung 


Bis hier sind die Ketten immer nur mit einem Master und mehreren 
Details dargestellt worden, oder es wurde der Master einer Kette, 
der gleichzeitig ein Detai! einer anderen Kette ist, gezeigt. Die 
Darstellung der Satzzusammenhinge in einem grofien System kann 
schwierig werden, wenn diese Methode angewandt wird. Ein 
IDS-Stenogramm, das die Jogische Darste!lung von Datenketten 
vereinfacht, ist in Abb. 27 a/b gezeigt. In diesen Abbildungen sind 
Lieferantenstitze Master in den Lieferauftragsketten. Die Liefer- 
auftragsstitze sind die Details der Lieferauftragsketten und die 
Master der Actikelkette. Die Artikelsdtze sind Details in der 


Artikelkette. 


Lieferauftrags-Kette 


Lieferauftrags satz 


Artikelkette 


Artikel -Satz 


Abb. 27 a: IDS-Stenogramm 


SESE 
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Lieferanten-Satz 


Lieferauf- Lieferauf- 


trags-Satz trags-Satz 


Artikel = Artikel- Artikel- 
satz satz satz 
Artikel- Artikel - Artikel- Artikel - 
satz satz satz 


satz 
Artikel - 
satz 


Lieferauf- 
trags~Satz 


Abb. 27 b: Kettenstenogramm in ausfUhrlicher Darstellung 
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Durch das !DS-Stenogramm kénnen sehr komplexe Datenstrukturen 

in leicht verstiindlicher Form gezeigt werden. Abb. 28 zeigt eine 
kurze Ubersicht der zultissigen und nicht zulissigen Datenstrukturen. 
Eine kreisférmige Definition (Skizze 6), bei der der Master 

sein eigener Detail wird, ist nicht gestattet. 


i = 


Abb. 28: Im G-100 IDS zulassige und nicht zuldssige Datenstrukturen. 


cr 
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Speicherstellen 00007 
Speicherstellen 3950-5150 


Die benuizten Routinen 
hangen vom Source - 
Programm ab. 


Satz Definition und 
Master-Definition 
enthalten Kennsitze, 
die von IDS ver- 
wendet werden. 
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IDS Ein-/Ausgabesteverung 


Entsprechend den Befehle zum Speichern, Lesen, Modifizieren und 
Laschen bestimmter Sdtze wird der Datenflu8 in Form von Pages 
durch 1DS-Funktionen gestevert. IDS stevert ebenfalls die Page - 
Bearbeitung innerhalb des Kerrspeichers. In Abb. 29 ist diese 
Grundfunktion dargestellt. 


EDOS -Supervisor 
Platteneinheit 


EDOS/COBOL 
DATEITABELLEN 


IDS EXECUTE-ROUTINEN 
UND COBOL-UNTERROUTINEN 


COBOL-LITERALE, KONSTANTEN 


IDS-Definitionstabellen 
(Vom Translator generiert) 
DC AL2 (NAME) FUR KETTEN- 
TABELLEN 

DC AL2 (ABC) (als Hinweis- 


RETRIEVE 


OBJECT -PROGRAMM 
Page-Gruppen= Pagepuffer- 
Tabellen Tabellen 
PAGE-BUFFER IDS-Page 


Ol CCB 
02 DIRECT-REFERENCE 9 (3) 
02 FIRST-REFERENCE 9 (3) 
02 LAST -REFERENCE 

ETC. 
COBOL WORKING STORAGE 


LINKAGE SECTION 


Abb. 29: Ein-/Ausgabesteverung 
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Datenpuffer 


Um die Plattensuch- und Ubertragungszeiten niedrig zu halten, 
ist in Pufferbereichen im Kernspeicher ein Verzeichnis der Daten- 
Pages angelegt. Die Anzah! der Puffer hangt davon ab, wieviel 
Speicherplatz noch zur Verftigung steht, nachdem die 1DS-Unter- 
routinen und die Objektprogramm-Routinen geladen worden sind. 


Je gréBer die Anzahl der im Kernspeicher enthaltenen Page ist, 

umso gréker ist die Wahrscheinlichkeit, daB die als nachste bendtigte 

Page schon im Speicher ist. Um diese Wahrscheinlichkeit noch zu 

erhthen, registriert die Ein-/Ausgabesteuerung genau die Reihenfolge 

der Pagebenutzung (d.h. die Satz-Aktivitat) und behult die zuletzt 

benuizten aktiven Pages im Kernspeicher. Pages, auf die nur selten 

zugegriffen wird, werden aus dem Speicher herausgenommen, wahrend 6 
andere daftir eingespeichert werden. Die Ein-/Ausgabesteuverung ' 
registriert, welche Pages veriindert worden sind, und schreibt nur die 
verdnderten Pages auf die Platte zuriick. 


Vorrangsteverung 


Jedesmal wenn eine neve Page gelesen wird, fragt das IDS-System 
seinen Zihler fur aktive Pages ab und Uberlagert die mit der geringsten 
Aktivitit, wenn fur die einzuspeichernden Page kein Platz frei ist. 
Die zu tberlagernden Pages werden automatisch in die Plattendatei 
zurUckgeschrieben, wenn an ihr Anderungen vorgenommen worden sind. 


Bereitstellen von Sttzen 


Nachdem die Ein-/Ausgabesteuerung einen Platz fiir die Page gefunden 

hat, sucht sie den angerufenen Satz. Die Felder des Satzes werden ; 
in die WORKING-STORAGE Ubertragen, wenn ein MOVE TO 6 
WORKING-STORAGE-Befehl spezifiziert ist. Dort kénnen die Werte 

der einzelnen Felder unter dem jeweils definierten Namen ange- 

sprochen und auch vertindert werden. 


Dateischutz 


Die Steverfunktionen eliminieren im wesentlichen die Méglichke it 

der irrtUmlichen Fortschreibung von Satzfeldern. Die Unversehrtheit 

der Dateien wird dadurch gewuhrleistet, daB die Satzpflege dem 
Programmierer abgenommen wird und dieser ausschlieBlich die Satz- 
felder in der WORKING-STORAGE fortschreiben kann. Die Anderungs— 
funktion, die Datenfelder ansprechen kann, bietet die einzige 
Moglichkeit, einen Satz zu verdndern. 
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Bearbeitung der Sdtze 
Allgemeines 


Die IDS-Sprache ist eine Erweiterung von COBOL. 

Folglich missen beim Schreiben eines Source ~Programms alle 
Formate und Sprachmerkmale von COBOL beachtet werden. In 
einigen Fallen sind bestimmte Elemente der COBOL-Sprache fur 
IDS nicht verwendbar. Diese Ausnahmen sind in den Beschreibungen 
der einzelnen Sections erwahnt. Die Sprache besteht aus zwei 
Grundelementen: 


~ Der Datenbeschreibung 


- Der Verarbeitungsfunktionen. 


Datenbeschreibung 


Die Datenbeschreibung ist einer erweiterten COBOL DATA DIVISION 
abnlich. Jeder Satz und jedes Datenfeld der Datei wird definiert. 
Dariber hinaus stehen flr jeden Satz Parameter zur Verfiigung, die 
die Ein-/Ausgabe stevern. Zu diesen Parametern gehort die Definition 
der Kette(n), sowie eine Beschreibung der zu verwendenden 
Speicherungs- und Zugriffskriterien. 


Verarbeitungsfunktionen 


Die Verarbeitungsfunktionen werden mit Hilfe von Prozedur- 
Anweisungen spezifiziert: 


HEAD, INSERT, REMOVE, STORE, DELETE, MODIFY, MOVE, 
RETRIEVE, OPEN und CLOSE. 


Diese Anweisungen werden vom Translator akzeptiert. Der Translator 
verarbeitet sie und generiert aus ihnen APS-Befehle, die vom 
COBOL-Compiler kompiliert werden. 


Die Befehtsanwendung ist auf den nachfolyenden Seiten ausfUhrlich 
beschrieben. Nachfolgend eine Zusammenfassung ihrer Funktionen. 


Nachdem alle Daten- und Steuerfelder im WORKING-STORAGE -Bereich 
initialisiert sind, speichert die STORE-Anweisung einen neven Satz 
entsprechend seiner Beschreibung. Der Satz wird aus dem WORKING~ 
STORAGE-Bereich in eine Page tbertragen. Die Kettenfelder werden 
initialisert, um die Position des Satzes in Ketten zu zeigen. Die 
Kettentabellen werden ebenfalls fortgeschrieben, um den CURRENT - 
Status des neuen Satzes wiederzugeben. 


a el 
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Bei IDS werden durch die STORE~Anweisung nur die Kettenfelder 
initialisiert, bei denen der Satz Master einer Kette ist. Ketten- 
felder, bei denen der Satz Detail in einer CONDITIONAL -Kette 
ist, mUssen durch die INSERT-Anweisung initialisiert werden. 


Die RETRIEVE-Anweisung kann verschiedene Formen haben: 
~ RETRIEVE Satzname RECORD. 


Das Lesen erfolgt in Ubereinstimmung mit der Datenbeschreibung 
fur den genannten Satz. 


- RETRIEVE CURRENT Satzname RECORD. 


Der gelesene Satz ist der letzte bearbeitete Satz. Es wird gepruft, 6 
ob er dem gewUnschien Typ entspricht. Ist dies nicht der Fall, 
wird eine Fehlerbedingung verzeichnet. 


CURRENT 
MASTER 

“y NEXT 
PRIOR 


~ RETRIEVE OF Kettenname CHAIN. 


Der gelesene Satz ist eine Funktion der Position des laufenden 
Satzes innerhalb der Kette. 


~ RETRIEVE DIRECT 


Diese Maglichkeit kann benutzt werden, wenn der RECORD 

IDENTIFIER eines Satzes bekannt ist und im Bereich gespeichert 

wurde (DIRECT-REFERENCE). Der Satz wird nicht auf Satztyp 6 
gepruft. 


= RETRIEVE EACH AT END GO TO Prozedurname. 


Durch sequentielles Absuchen der Datei wird jeder Satz innerhalb 
bestimmter RECORD IDENTIFIER (ohne RUcksicht auf den Satztyp) 
gelesen. 
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Bei jeder der oben beschriebenen Optionen wird der Satz fUr 
zusttzliche Funktionen, die nach der RETRIEVE -Grundanweisung 
angegeben sein kénnen, zur VerfUgung gestellt. Diese Funktionen, 
die in verschiedenen Kombinationen eingesetzt werden kénnen, sind: 


- MOVE (letzter Satz) TO WORKING STORAGE. 


- MODIFY Feldname (Ersetzen eines Wertes im letzten Satz durch 
den Wert in der WORKING STORAGE und ZurUckschreiben des 
Satzes, 


- INSERT (laufenden) Satzname IN Kettenname. 
- REMOVE (laufenden) Satzname FROM Kettenname. 
- DELETE (zuletzt verarbeiteten Satz). 


- HEAD Kettenname (RETRIEVE und MOVE den Master des 
zuletzt aufgegriffenen Satzes) . 


Es ist Aufgabe des COBOL-Programms, die WORKING-STORAGE zu 
initialisieren, bevor irgendwelche der obengenannten Befehle zur 
Anwendung kommen. Wenn ein Satz in einer Page gespeichert werden 
soll, mu8 ein vollsttindiger Satz in der zugehtrigen WORKING-ST ORAGE 
vorhanden sein. Wenn ein Satz von einer Platte gelesen werden soll, 

aber sich noch nicht im WORKING=ST ORA GE -Bereich befindet, mUssen 
die Steverbefehle des Satzes schon in der WORKING-STORAGE 
initialisiert worden sein. Die OPEN- und CLOSE-Befehle haben 

dieselben Funktionen wie bei COBOL. 
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Schreibweise fir Anweisungs— und Eintragungsformate 


Bei der Darstellung der IDS~Sprache wurden folgende Standard- 
Schreibregeln verwendet: 


a) 


b) 


h) 


Alle unterstrichenen Werter in GroBbuchstaben sind erforder- 
lich, wenn die jeweilige Funktion benutzt wird. Wenn sie 
fehlen oder falsch geschrieben sind, wird bei der Translation 
ein Fehler ausgedruckt. 


Alle nicht unterstrichenen Wérter werden nur zum besseren 
Versttindnis verwendet. Ihr Vorhandensein oder Fehlenbeein- 
trtichtigt die Translation des Source -Programms nicht. Wenn 

sie aber verwendet werden, mUssen sie richtig geschrieben sein. 


Alle Wérter mit Kleinbuchstaben sind vom Benutzer zu 
spezifizierende Gattungsbegriffe, d.h. Zahl-1 verlangt z.B., 
daf der Benutzer eine ganze Zahl einsetzt. 


Angaben in den geschwungenen Klammern { \ bedeuten, daB 
aus dem Inhalt eine Angabe gew&hlt werden muB8. 


Angaben in eckigen Klammern [ ] stellen Optionen dar, die 
yom Benutzer innerhalb der vorhandenen Format -Bezugs- 
tabelle eingeflgt oder ausgelassen werden kénnen. Einige sind 
nur bedingt wahlfrei. 


In Fallen, wo viele Angaben zur Auswahl stehen, sind einige 
Unterteilungen in numerierte Optionen gemacht worden. 


Wo zwei oder mehr Substantive oder Satze hintereinander ge- 
schrieben werden dirfen, stellen Semikolon (;) und Komma (,) 
die Bindeglieder dar. 


Drei Punkte (...) bedeuten, dai eine Information ausgelassen 
ist und daB die Eintragungen innerhalb spezifizierter Grenzen 
wiederholt werden kénnen (und zeigen an, das Querverweise 
erforderlich sind, wo unvol{sttndige Formate intragungen 
gegeben sind). 
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4.2. Beschreibung der IDS-Befehle 


Wie bereits erwahnt, ist die IDS-Sprache eine Erweiterung von COBOL. 
Alle Format- und Sprachspezifikationen der Ubergeordneten Sprache 
{d.h. COBOL) missen beim Schreiben eines Source-Programms 

beachtet werden. IDS verwendet seine eigene Format- und Sprach— 
struktur, die dem COBOL-Wortschatz in gewisser Weise dhnelt. 


4.2.1. IDENTIFICATION DIVISION 


IDS verlangt keine speziellen oder zustitzlichen Eintragungen in der 
IDENTIFICATION DIVISION des Source -Programms. 


4.2.2. ENVIRONMENT DIVISION 


Alle Teile der ENVIRONMENT DIVISION mit Ausnahme des 
FILE-CONTROL-Paragraphen der INPUT-OUTPUT -SECTION 

werden so verwendet wie in COBOL festgelegt. Der FILE-CONTROL- 
Paragraph hat die auf der folgenden Seite gezeigte Form. 
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FILE CONTROL 


Funktion: Benennung der IDS-Datei und Kennzeichnung 


ihrer Speichermedien. 


Format: FILE CONTROL 


SELECT IDS Dateiname ASSIGNTO Plattenstation. 


Anmerkungen: 


1. 


G-100 


Dieser Satz wird verwendet, um den Dateinamen der Datenbank 
zu kennzeichnen. 


Die SELECT 1DS-Eintragung darf nur einmal zur Kennzeichnung 
der Datei benutzt werden. 


Andere Méglichkeiten der SELECT -Eintragung, wie fir COBOL 
angegeben, dirfen bei der SELECT IDS-Eintragung nicht 
verwendet werden. 


Der Dateiname kann aus 8 Zeichen bestehen und darf innerhalb 
des Programms nur einmal vorhanden sein. 


Die Plattenstation mu® sich aus DS-n zusammensetzen, wobei 
"ny" die logische Nummer der Einheit (von 0 bis 7) darstellt, 
die den ersten Plattenstapel der Datei enthilt. 


Die Anweisung SELECT IDS Dateiname ASSIGN TO Dateicode 
muB in einer einzigen Karte enthalten sein. 


¢ 
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DATA DIVISION 


Der Programmierer beschreibt seine IDS-Dateien in einem besonderen 
Abschnitt der DATA DIVISION, der IDS SECTION. Dieser Abschnitt 

mu8 auf die WORKING-STORAGE SECTION folgen und vor der 

REPORT SECTION liegen. In der WORKING-STORAGE SECTION darf 
eine Stufe nicht mit VALUE "IDS...." definiert werden. 

Die IDS SECTION enthilt eine Dateibeschreibung sowie die Satz-, 

Feld- und Kettenbeschreibungen, die die gesamte IDS~Datei 

spezifizieren, Vom Translator werden aus der Satzbeschreibung 
WORKING-STORAGE-Eintragungen generiert und an den COBOL- 
Compiler weitergegeben. Diese Eintragungen definieren eindeutige 
Bereiche fur jeden spezifizierten Satztyp und dienen als Verbindung 
zwischen dem Programm und den zu bearbeitenden Satztypen. Diese Bereiche 
entsprechen dem Datenteil jedes definierten Satztyps. Den WORKING- 
STORAGE-Bereichen wird der in der Satzbeschreibung definierte Daten- 
name zugeordnet. Diese Datennamen mUssen in der PROCEDURE DIVISION 
verwendet werden, wenn Daten Ubertragen werden. Die symbolische Saiz-, 
Feld- und Kettennamen missen eindeutig und kénnen maximal 5 Stellen 
Jang sein, sie kénnen in jeden beliebigen Alphazeichen avBer Q beginnen. 


Die Stufen MD;01; und 98 innerhalb der IDS SECTION sind als 
IDS-Konventionen festgelegt worden. Sie werden vom Translator 
verwendet. 


Die [DS-Datenbeschreibungen haben vier Funktionen: 
- Datenbeschreibung 


Sie liefern Informationen Uber die Merkmale der Datei. 
Dies ist die Eintragung der MD -Stufe. 


- Satzbeschreibung 


Benennt, beschreibt und stevert die Anordnung des Satzes im 
Speicher und definiert die Zugriffskriterien. Dies ist eine 
Eintragung der Stufe 01. 


- Feldbeschreibung 
Nennt und beschreibt den Informationsgehalt eines Satzes. 


. Eintragungen der Stufe 02. 

. IDS benutzt nur Eintragungen der Stufe 02 und ordnet fur jede 
02 -Eintragung Arbeitsspeicherbereiche zu. 

. Diese Eintragungen kénnen entsprechend den Regeln der 
COBOL-Sprache noch weiter untergliedert werden. 

+ Alle Felder gleichen Namens teilen sich einen gemeinsamen 
WORKING~STORAGE-Bereich. 


Se ee) 
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- Kettenbeschreibung 


Nennt und beschreibt die Beziehungen der Siitze untereinander 
(Master/Detail) und steuert das Einflgen und Aufgreifen eines Satzes 
innerhalb der Struktur. 


- Eintragungen der Stufe 98. 


Alle IDS-Sttze werden im 8-Bit-Modus als Sdtze fester Lange 

von "n” Bytes gespeichert. Jeder Satz enthdlt mindestens ein Ketten- 
feld fur jede als zugehirig spezifizierte Ketre. Ferner so viele 

Bytes von Datenfeldern, wie flr eine Gesamtheit der Eintragungen 
des 02 Stufenfeldes und den RECORD LOCATOR (am Ende der Page) 
erforderlich sind. 


Das LOCATION WORD wird intern als Teil des Satzes behandelt. 
Die Felder werden in Sdtze zusammengefaft und die Sétze ge- 
speichert. Der Benutzer kann seine Daten in beliebiger Form aufbauen. 


Dateibeschreibungen 


Die Dateibeschreibung liefert Informationen Uber die physikalischen 
Merkmale der Datei. Sie mu8 die erste Eintragung der IDS SECTION 
sein. Die Eintragung besteht aus einer Stufennummer, einem Datei- 
namen und einer Reihe von Sdtzen, die die IDS-Datei definieren. 
Die MD wird benutzt, um den Anfang der darauf folgenden Datei- 
beschreibung zu kennzeichnen. 


ee EE EE 
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Dateibeschreibung 


Funktion: Beschreibung des physikalischen Aufbaus der IDS—Datei. 


MD Dateibeschreibung 


Format: MD Dateiname 


PAGE CONTAINS- Zahl-1 CHARACTERS 
FILE CONTAINS Zahl-2 IDENTIFIERS. 


Anmerkungen: 


1. Der Dateiname mu identisch sein mit dem in der SELECT IDS- 
Anweisung des FILE-CONTROL-Paragraphen. ~~ 


2. Die PagegréBe (ZahI-1) muB angegeben werden. Bei der Fest- 
legung der Page ist von der bestmiglichen Ausnutzung der 
Speicherkapazitét auszugehen. Einige der zu berticksichtigenden 
Faktoren sind: Satzlange und Anzahl der in einer Page zu 
speichernden Sitze; die Anzahl der verftigbaren Pagepuffer— 
bereiche htingt von der PagegréBe ab. Diese muB ein Vielfaches 
von 288 Stellen sein bis max. 15 Sektoren umfassen. Zahl-1 
darf nicht mehr als 4 Stellen lang sein. Eine Page darf nur 
1, 2, 4, 5, 10 oder 15 Sektoren belegen . 


3. Der FILE-Satz ist erforderlich, um die Beschreibung der IDS- 
Bearbeitung zu vervollstindigen. Zah!-2 kann eine beliebige 
Anzahl Sutze angeben, die die Datei enthalten soll. 


4. Die PAGE und FILE-Zahlen mUssen mit den in der Initialisierung 
der Datei definierten Parametern Ubereinstimmen. 


5. Die Reihenfolge der Befehle ist unbedeutend,nach dem letzten 
Satz jedoch muB ein Punkt stehen. 


6. Die FILE-GréBe (Zahl~2) darf nicht langer als 8 Stellen sein und 
keinen Wert gréfier als 16.777.215 spezifizieren. 


en 
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4.2.3.2. | Satzbeschre ibungen 


Die Sutze werden durch Eintragungen beschrieben, von denen jede 
die Merkmale eines bestimmten Feldes definiert. Diese Felder werden 
dann in Satzen gruppiert. Unmittelbar nach der normalen Satz- 
beschreibung sind zustitzliche, eindeutige Eintragungen zur Be- 
schreibung der Charakteristika der Datenstruktur erforderlich. 


Im allgemeinen sind das Format und die Verwendungsweise der 
Satzbeschreibungen mit denen fUr COBOL -Satzbeschreibungen 
vereinbar. 


Die Satzbeschreibungen haben folgende Funktionen: 


~Sie legen die parametrische Steuerung fUr die Eintragung eines a 
Satzes in die IDS-Page fest. Diese Parameter werden auf den 
Stufen 01 und 98 definiert. 


~ Sie definieren die Zugriffsmethode fUr diesen Satz durch die 
RETRIEVE -Anweisung. 


- Sie liefern Informationen Uber das externe Format jedes einzelnen 
logischen Satztyps. 


- Sie definieren interne Arbeitsspeicher~Bereiche, die als Ver- 
bindungsstellen zwischen Benutzerroutine und der Datei dienen. 


Ein weiteres eindeutiges Merkmal einer IDS-Satzbeschreibung besteht 
darin, daB nur die Datenfelder selbst definiert werden. 


Die Satzbeschreibungen definieren nicht die verschiedenen Vorsatz- 

felder oder die Ketten-Hinweisadressen, die Bestandteile jedes Satzes 

sind. Bei diesen Feldern gilt die stillschweigende Voraussetzung, da C 
sie festes Format haben (in Anhang 7.4 definiert) und vom Translator 

aufgebaut werden. 


Die verschiedenen Sttze der IDS-Datei werden auch von den 
COBOL-Befehlen so verwendet, als waren sie in der WORKING= 
STORAGE definiert. Aus diesem Grunde mu? jeder Satzname 

(Stufe 01) eindeutig sein und kann nicht durch einen Dateinamen 
qualifiziert werden. IDS erkennt die COBOL REDEFINES-Anweisung 
nicht an. Felder (Eintragung der Stufe 02) kénnen daher nicht 
REDEFINED werden. 
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Funktion; Spezifizierung der Bearbeitungsart fur einen Satz. 
Format: 01 Satzname TYPE IS Zahl-1 
Feldname-1 FIELD 
RETRIEVAL VIA Kettenname -2 


JUSER-CALC CHAIN 
| CALC 


- [ PLACE NEAR Kettenname -3 CHAIN 71 
IDENTIFIER-RANGE IS Zah{-2 TO ZahI-3 
[INTERVAL IS Zahl-4 IDENTIFIERS | « 


Anmerkungen: 


. 


2. 


Jeder Befehl gilt nur auf Stufe 01. 


Die maximal 5 Stellen des Feldes, der Kette und des Satzes 
mUssen eindeutig sein. Das heift, die Feld-, Ketten- und 
Satznamen kénnen nur 5 Stellen lang sein. Jeder mu mit 
einem Buchstaben beginnen. 


Zahlen-2-3-4 mUssen als RECORD IDENTIFIER dargestellt werden. 


Die Reihenfolge der Befehle ist ohne Bedeutung; nach dem 
letzten Satz mu8 ein Punkt stehen. 


eal 
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Funktion: Definiert den Satztyp, der in jedem Satzkennschlussel 
gespeichert wird. Damit wird ein gelesener Satz eindeutig mit 
dieser Datenbeschreibung in Zusammenhang gebracht. 


Format: TYPE_IS Zahl-1 


Anmerkungen: 
1. Diese Angabe ist fUr jede Eintragung der Stufe 01 erforderlich. 


2. Die Zahl-1 kann eine beliebige Zahl von 1 bis 254 sein. 
Satztyp 255 ist fur den Page-Kennsatz reserviert. 


3. Jede Zahl-] darf nur einmal vorkommen. ¢ f 


Cc 
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Funktion: Spezifizierung der Bearbeitungsart fur einen Satz. 


Format: 


Feldname-1 FIELD 


Kettenname -2 
CALC CHAIN 
| USER-CALC J 


RETRIEVAL VIA J 


Anmerkungen: 


Ts 


2. 


Diese Anweisung ist fUr jede Eintragung der Stufe 01 erforderlich. 


Die drei Arten von RETRIEVAL bieten eine Grundlage fur die 
Klassifizterung aller IDS-Sidtze nach einer der folgenden Kategorien: 


Primér 


Er wird direkt Uber den RECORD IDENTIFIER gelesen, wie in 
Anmerkung 3 beschrieben. (Der Benutzer steuert innerhalb 
gewisser Grenzen die Speicherung oder fUhrt ein RETRIEVE 
mit Hilfe der ihm bekannten RECORD IDENTIFIER aus.) 


Sekunddr 


Wird Uber seine Kettenzugehirigkeit, wie in Anmerkung 4 
beschtieben, gelesen. 


Kalkuliert 


Wird Uber seine CALC CHAIN-Zugehdrigkeit durch AdreB- 
umrechnung in eine Page gelesen, deren Header der Master 
der CALC CHAIN ist, wie in Anmerkung 5 beschrieben. 
Kalkulierte Stitze sind eine besondere Art von Sekundérstitzen. 


Primérstitze 
RETRIEVAL VIA Feldname-1 FIELD bietet die Méglichkeit, 


einen Satz Uber seinen RECORD [IDENTIFIER direkt mit seiner 
logischen Adresse aufzugreifen. 
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Bei IDS wird anstelle des Begriffs REFERENCE CODE der Ausdruck 
RECORD IDENTIFIER verwendet. 


~ Der RECORD IDENTIFIER wird generiert, wenn der Satz auf 
Platte gespeichert wird, und wird im DIRECT REFERENCE 
unmittelbar nach dem Einspeichern zur VerfUgung gestellt. 
Es ist Sache des Benutzers, die generierten RECORD IDENTIFIER 
zwischenzuspeichern, wenn er fur den direkten Zugriff ver- 
wendet werden soll. Der Benutzer mu den Inhalt von Feld- 
name -] in der WORKING-STORAGE mit dem RECORD IDENTIFIER 
des aufzugreifenden Satzes initialisieren, oder den RECORD IDENTIFIER 
des zurlck zuschreibenden Satzes in DIRECT REFERENCE ubertragen. 


- Der RECORD IDENTIFIER in DIRECT-REFERENCE wird, wenn ein 
STORE gegeben wird, als Suchadresse nach einem Speicherplatz 
fur den neven Satz verwendet. Die tatstchliche Adresse des 
Satzes kann jedoch weit entfernt von der gewUnschten Suchadresse 
sein, wenn PLACE oder INTERVAL angegeben ist. 


- Feldname-1 muf ein 3 Byte groBes Feld(PICTURE 9 (6) 
COMPUTATIONAL-1) sein, das durch ein SchlUsselfeld 
(Stufe 02) in der Satzbeschreibung definiert wird. Dieses Feld 
wird nicht auf der Platte gespeichert. 


4.  Sekundiirstitze 


RETRIEVAL VIA Ketfenname-2 CHAIN gestattet das Lesen 


eines Satzes Uber seine Zugehdrigkeit als Detail zur genannten - 
Kette. Zuerst mu8 der Master der Kette gelesen werden. tf 


Danach wird durch Absuchen der Kette der gewUnschte Satz 
gefunden. Kettenname-2 muB auf eine definierte CONDITIONAL- 
Kette verweisen,. und der Satz muB als Teil der Kette definiert sein. 


Wenn ein PLACE NEAR weggelassen ist, gilt ein Sekundar- 
satz als nahe beim Master gespeichert. 


~ Die RETRIEVAL VIA-Kette gilt als Primirkette, wenn 
PLACE NEAR nicht angegeben ist. 


c 
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Kalkulierte Sdtze 


CALC 
RETRIEVAL VIA USER-CALC CHAIN 


bewirkt das Lesen eines Satzes durch Verwendung seiner 
definierten SchlUsselfeld(er) zur Erzeugung einer Pseudo- 
Randomnummer. Der Benutzer kann zwar seine eigene 
Umrechnungsforme! (USER-CALC) definieren, die vielen 
Schnittpunkte aber, die sie mit sich bringt, erfordern eine 
genave Kenntis der Unterroutinen wahrend des Programm- 
laufs. So sollte USER-CALC nur mit duferster Vorsicht 
benvutzt werden. Die generierte Zufa!lszah! wird mit einer 
bestimmten Page der IDS—Datei gleichgesetzt. Der Page- 
Header ist der Master der CALC CHAIN (Benutzer- oder 
System). Die IDS-Routinen lesen den Page-Header und 
finden dann den spezifischen Satz durch Absuchen der 
CALC CHAIN. 


Uberlaufregel 


Ist in der spezifizierten Page kein Platz verfugbar, so wird 
der Satz in der ersten Page (aufsteigende Nummernfolge) 
gespeichert, in der Platz vorhanden ist. Wenn die héchste 
Nummer erreicht ist, beginnt der Suchvorgang wieder am 
Anfang des Bereiches. Dabei werden die durch einen 
IDENTIFIER-RANGE -Befehl spezifizierten Bereichsgrenzen 
eingehalten. 


a eS ESET 
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Funktion: Spezifizierung eines Bereichs der IDS-Datei, in den 
die Sitze des eingegebenen Typs eingespeichert werden 
sollen. 

Format: IDENTIFIER-RANGE IS Zahl-2 TO ZahI-3 

Anmerkungen: 


1. IDENTIFIERRANGE muf fur alle Satztypen angegegen werden. 


2. Zahl-2 und Zchl-3 stellen den ersten bzw. letzten 
RECORD IDENTIFIER einer Reihe von Pages dar, innerhalb der 
diese Size gespeichert werden sollen. Zahl-2 kann gréfer 
sein als Zahl-3. In diesem Falle wird der Bereich wie folgt 
definiert: Er beginnt mit der Page Zahl-2, geht bis zum C 
hichsten Kennsatz (zyklische Folge) und erstreckt sich bis 
zum Ende der Page Zahl-3. Beide Zahlen mUssen ganze 
Zahlen, positiv, gréBer als Null und nicht langer als 8 Stellen 
sein. IDS verwendet 1 als niedrigsten Kennsatz. Maximal 
kénnen 16.777.215 Satze gespeichert werden. 


3. Die Werte von Zahl-2 und ZahI-3 durfen nicht grdBer sein 
als der im FILE CONTAINS-Befehl spezifizierte Wert. 


4. Viele verschiedene Satztypen kénnen denselben Bereich 
gemeinsam benutzen. 


5. Die IDENTIFIER-RANGE-Angabe begrenzt, aber verhindert 
nicht die Funktion der PLACE NEAR- und INTERVAL-Anweisung 
sowie das Ergebnis der CALC -Umrechnung. 


6. Falls ein primiirer Satz einem bestimmten Bereich zugeordnet 
wurde, wird der von DIRECT -REFERENCE gelesene Wert 
diesem Bereich, falls nétig, angepalt. 


c 
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Funktion: Die Einspeicherung eines Satzes in die 


physikalische N&he des Master~Satzes der 
angegebenen Kette. 


Format: [PLACE NEAR Kettenname-3 CHA IN| 


Anmerkungen: 


1. 


Kettenname-3 mu8 ein definierter Kettenname sein, und der 
beschriebene Satz mu8 ein Detail in dieser Kette sein. 


Ein Primtr~ oder Sekundirsatz wird in physikalischer Nahe 
des Masters der genannten Kette abgespeichert. ° 


Wenn ein Primérsatz als Detail definiert wird und auch 

in der Nahe seines Masters gespeichert wird, dann ersetzt 

der RECORD IDENTIFIER des CURRENT -Satzes den 

RECORD IDENTIFIER, der aus dem DIRECT-REFERENCE-Feld 

als Suchadresse fUr die Speicherung des Satzes genommen wurde. 


.: Wenn diese Klause! entfallt, sieht das Speicherverfahren fur 


Primirstttze vor, den Satz immer dort zu speichern, wo es 

fur IDS am einfachsten ist. Es beginnt damit, daB im 

Page ~Header, der den CURRENT -Satz enthilt, ein freier 

Platz gesucht wird. Die Befehlsfolge flr Sekundérstitze ver- 
sucht, den Satz in die physikalische Nahe seines logischen 
EinfUgungspunktes in der durch die PLACE NEAR-Klausel 
definierten Kette zu speichern. Falls PLACE NEAR nicht ver- 
wendet wird, wird die durch die RETRIEVAL-Klausel definierte 
Kette benutzt. 


a A 


Ref.-Nr.: 32.30.206 D 
Juli 1973 


INTERVAL -64- 


Funktion: Die gleichmi@ige Verteilung ven Stitzen eines 
gegebenen Typs Uber den definierten IDENTIFIER-RANGE 
(bzw. den genzen Dateibereich). 


Format: [INTERVAL IS Zahi~¢ IDENTIFIERS | 


Anmerkungen: 


1. Zahl-4 stellt die Anzahl von IDENTIFIERS dar, die Ubersprungen 
werden, wenn ein Satz relativ zum vorherigen Saiz desselben 
Typs gespeichert wird. Um wirksam zu sein, mu Zah|-4 ein 
Vielfaches der IDENTIFIER pro Page sein. 


2. Bei Uberschneidungen ersetzt diese Anweisung jedes durch einen 
PLACE -Befehl spezifizierte Speicherungsverfahren. 


3. Dieser Befehl wird gewshnlich nur fur das erstmalige Laden von 
S&tzen benutzt, die in der Datei stundig verbleiben. 


4. Zahl~ mu8 eine positive Ganzzahl_ und nicht ldnger als 
8 Stellen sein. 


5. Wenn ein Primtrsatz jeweils mit einem [NTERVAL von “n" 
IDENTIFIERS gespeichert wird, dann ist die als Suchadresse ver- 
wendete Kennzeichnung (ersetzt den Wert aus DIRECT REFERENCE) 
gleich der Kennzeichnung des CURRENT -Satzes plus dem 
INTERVAL -Wert. 


6. Statt die INTERVAL-Option zu verwenden, kann der Benutzer 
ein Programm schreiben, das die Satzspeicherung mit einer festen 
oder einer variablen Zahl von Sdtzen pro Page mit Hilfe eines 
eigen kodierten Algorithmus und der Angabe RETRIEVAL-VIA 
Feld-Name stevert. 
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Funktion: Spezifiziert die Merkmale e ines bestimmten 
Datenfeldes. 


Format: 


Feldname DISPLAY 
02 fer f° PICTURE in) = | [USAGE ] COMPUTATIONAL-I 
‘COMPUTATIONAL-2 


Anmerkungen: 


1. Feldname muB fur jede 02-Eintragung eindeutig sein. Er kann 
maximal 5 Stellen lang sein und mit jedem Buchstaben auBer Q 
beginnen. 


2. Jedes Feld, ob im Satz enthalten oder nicht, mu8 gesondert 
gekennzeichnet werden und das PICTURE-Format haben: 


f zeigt die Art der Daten im Feld an: 


9 zeigt numerische Daten an. 


X — weist auf alphanumerische Daten hin. 
n ist die Feldlange in einer ganzen Zahl von Bytes. 


3.  Steverfelder werden zum Auffinden, Speichern und Modifizieren 
von Satzen unter bestimmten Bedingungen verwendet. Jeder Teil 
des Satzes kann als ein 02 FILLER in der entsprechenden GrdBe 
angegeben werden. 


4, Der gesamte Datenteil des Satzes kann als eine Eintragung der 
Stufe 02 definiert werden. Es ist jedoch Ublich, den Datenteil 
in groBe funktionsorientierte Bereiche zu unterteilen. So kann 
eine ganze Reihe von 02-Eintragungen definiert werden - je 
eine fUr jeden Funktionsbereich. 


5. Das COBOL-Programm kann Teile von IDS-Feldern innerhalb 
des Satzes adressieren. Dazu werden -die Stufennummern von 03 
bis 10 zur weiteren Unterteilung des Satzes verwendet. 


6. Alle Anweisungen, die der Benutzer an Feldern ausfuhrt, 
erfolgen in der WORKING STORAGE. Innerhalb der Page 
sind keine vom Benutzer geste verten Operationen erlaubt. 
Operationen an Pages dirfen nur unter Verwendung der 
IDS-Befehle ausgefUhrt werden. 
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IDS erkennt nur die 02-Eintragungen, die Unterdefinitionen 
gibt es an den COBOL-Compiler weiter. 


Alle Felder mit dem gleichen Namen in verschiedenen Sitzen 
benutzen einen gemeinsamen Arbeitsspeicherbereich. Die 

erste 02-Eintragung wird an den COBOL-Compiler zur Er- 
stellung einer WORKING STORAGE SECTION weitergegeben. 
Alle doppelten 02-Eintragungen werden Ubergangen und als 
Bemerkungen markiert. Das Datenfeld wird aber Teil jedes 
Satzes, in dem es genannt worden ist. 


Wenn die 03-Stufen oder hahere Stufen als COMPUTATIONAL-1 
oder -2 definiert werden, muB der Programmierer die richtige 
Feldlange auf der 02-Stufe beachten, die dann mit USAGE DISPLAY 


angegeben werden sollte. Cc 
) 


Kettenbeschreibungen 


Ein Satz kann zu einer oder vielen Ketten gehdren, Fir jede Kette, 
an der der Satz beteiligt ist, muB eine Kettenbeschreibung vor- 
handen sein. Alle Eintragungen dieser Art mUssen unmittelbar auf die 
Satzbeschreibungs- und Feldeintragungen folgen. 


Die Kettenbeschreibungen bestehen aus einer Stufenanzeige (98), 
einem Kettennamen und einer Reihe von Eintragungen, die die 
besonderen Merkmale der Kette definieren. 


NERS 
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beschreibungsein- 
tragungen 


Funktion: Benennung und Beschreibung der Beziehungen der 
Sdtze untereinander (Master/Detail) und Steuerung 
der Einflgung von Sdtzen in die [DS-Struktur. 


Format: Moglichkeit 1 (Eigenschaften der gesamten Kette) 


98 Kettenname CHAIN MASTER 


SORTED. 
CHAIN ORDER IS} FIRST 
(AST 
BEFORE 
- AFTER 
[LINKED TO PRIOR] 7 


f SORTED WITHIN TYPE_ | 


Maglichkeit 2 (Eigenschaften einzelner Satztypen 
innerhalb der Kette) 


98 Kettenname 


CALC [ [ CONDITIONAL 7 CHAIN DETAIL 
USER=CALC_/ 


[RANDOMIZE ON Feldname-1 [ RANDOMIZE dex 1] 
SELECT CURRENT MASTER 


ASCENDING ASCENDING } > 
[ {desenen } RANGE KEY IS Feldname~2 ( {SSSR DING f j| 


ARE FIRST \ 
DUPLICATES ARE CAST 
NOTALLOWED J 


LINKED To Master] . 
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Vollsttindige Ketten- 
beschreibungsein= 


tragungen © 


Eine der nachstehenden "98" -Eintragungen ist fir jede Kette 
zwingend vorgeschrieben. Mehrfache Eintragungen (ver= 
schiedene Ketten) fur einen gegebenen Satz sind fur die 
Formate | und III mdglich. 


Format | {| MASTER - Option 1 
98 Kettename CHAIN MASTER erforderlich 


SORTED WITHIN LYPE 
SORTED 


CHAIN-ORDER IS erforderlich 


[LINKED TO PRIOR | . wahlfrei 


erforderlich 


erforderlich 
DETAIL - Option 2 


98 Kettenname [CONDITIONAL | CHAIN DETAIL erforderlich 
SELECT CURRENT MASTER 


ASCENDIN 
oeseenoine [ RANGE] KEY 1S sae ecole 


DUPLICATES < ARE LAST > SORTED 


Nog ALLOWED J 


(ARE FIRST 7 | CHAIN-ORDER 


[uinkep TO MASTER | F wahifrei 
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~ 69 ~ Vollstindige Ketten- 


beschreibungsein- 
fragungen 


Anmerkungen: 
1. Die Stufennummer muB 98 sein. 


2. Der Kettenname mu8 eindeutig sein, da er als Kettenname nicht 
qualifiziert werden kann. Er kann maximal 5 Stellen lang sein 
und mit einem beliebigen Buchstaben auBer Q beginnen. 


3. Fur jede Kette, an der der Satz beteiligt ist, mu8 entweder 
Option 1 oder Option 2 verwendet werden. Option 1 kann 
nur dann benutzt werden, wenn der Satz der Master einer 
Kette ist. Je Kette darf nur ein Master definiert werden. Eine . 
beliebige Anzahl von Satztypen kann als Detail einer Kette 
definiert werden. 


4, Eine Option 2-Eintragung mu8 benutzt werden, wenn das Detail 
als kalkulierter Satz oder als Sekundarsatz definiert wurde. 
In diesem Fall mu8 der Satz als Detail der CALC CHAIN oder 
USER-CALC CHAIN oder Kettenname CHAIN definiert werden. 


5. Alle Ketten mit Ausnahme der CALC CHAIN sind bedingt. 
Wenn ein Satz ein bedingtes Detail ist, wird er nicht automatisch 
in die CONDITIONAL-CHAIN(s} eingefUgt. (Siehe STORE 
und INSERT.) 


6. Kettenname kann nur in [DS-Befehlen und nicht in COBOL 
verwendet werden, 


7. Eine bestimmte Reihenfolge innerhalb der Eintragung braucht 
nicht eingehalten zu werden, aber auf die letzte Klausel 
muB ein Punkt folgen. 


G~100 a 
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-70 + 


Funktion: | Angabe der Kriterien fur die Reihenfolge der Details 


innerhalb der Kette. 


Format: 


{ SORTED WITHIN TYPE 1 
SORTED 
FIRST 
LAST 
BEFORE 

| AFTER 


CHAIN-ORDER IS « 


Anmerkungen: 


1. 


CHAIN-ORDER muf in jeder Master ~Kettendefinition angegeben 
werden (Option | der Kettendefinition). 


2. Wird eine der beiden SORTED-Optionen benutzt, so werden 


die Details entsprechend dem Wert ihrer SortierschlUssel in 
die Kette eingefligt. Die CHAIN-ORDER (Ketten-Reihenfolge) 
ist geordnet. 


a) Wird SORTED WITHIN TYPE benutzt, so erfolgt die 
Sortierung der Stitze innerhalb des Satztyps und unab- 
hingig von anderen Satztypen in der Kette. Die Satz- 
typen dagegen werden nicht in irgendeiner Sortierfolge 
gehalten (siehe Abb. 30'und 31). 


b) Wenn die SORTED-Option benutzt wird, werden die Satze 
innerhalb der gesamten Kette sortiert angeordnet, unabhiingig 
von verschiedenen Satztypen. Hierbei miissen GréRe, Nummer 
und Name der Sortierschltsse! in den verschiedenen Satz- 
gruppen Ubereinstimmen. 


c) Wird eine der beiden SORTED -Méglichkeiten benutzt, so 
mUssen die ASCENDING/DESCENDING -Eintragung und die 
DUPLICATES -Eintragung verwendet werden. Die Reihen- 
Folge von (ASCENDING/DESCENDING) mufi fur jedes 
Programm, das die IDS-Datei bearbeitet, identisch sein 
und yom Ubergeordneten zum untergeordneten Sortier- 
schlUssel weisen. 


d) Wenn SORTED und DUPLICATES NOT ALLOWED angegeben 


G-100 


wird, k6énnen nie zwei Sdtze beliebigen Typs dieselben 
SchlUsselwerte haben. Wenn SORTED WITHIN TYPE und 
DUPLICATES NOT ALLOWED verwendet wird, kénnen ebenso 
zwei Sutze gleichen Typs nicht dieselben SchlUsselwerte haben. 
Es ist zu beachten, dafs bei SORTED WITHIN TYPE dieselben 
SchiUsselwerte bei verschiedenen Satztypen gestattet sind. 


eS 
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Typ 1 
Schlussel 56 


Typ 2 
Schlussel 79 


Typ 3 
Schlussel 78 


Typ 2 
Schlussel 67 


Typ 1 
Schliissel 68 


Abb. 30: CHAIN-ORDER SORTED 


TYP 1 
SCHLUSSEL 56 


TYP 1 
SCHLUSSEL 68 


TYP 4_ 
SCHLUSSEL 89 


TYP 2 
SCHLUSSEL 67 


TYP 3 
SCHLUSSEL 78 


Abb. 31: CHAIN-ORDER SORTED WITHIN TYPE 
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CHAIN -ORDER -72- 


3. Die letzten vier Maglichkeiten dieser Eintragung bewirken, 
da ein Detail relativ zu einem anderen Detail eingefiigt 
wird. Diese Optionen sind: 

— FIRST: 
Der neve Satz wird als erstes Detai! relativ zum Master 
eingefUgt. 
- LAST: 
Der neve Satz wird als letztes Detail relativ zum Master 
eingefigt. 
~ BEFORE: 
Der neve Satz wird unmittelbar vor dem CURRENT -Satz 
eingefugt. 6 
~ AFTER: 


Der neve Satz wird unmittelbar hinter dem CURRENT -Satz 
eingefiigt. 


4, Wenn der Satz als Detail einer CALC-CHAIN definiert wird, 
wird keine Reihenfolge eingehalten, da kalkulierte Ketten 
auBer der Page-Nummer keine Reihenfolge cufweisen. 


5. Wird die CHAIN~ORDER mit LAST angegeben, so wird nur in 
den Master ein PRIOR~Kettenfeld eingefugt. 


6. Wenn die CHAIN-ORDER mit BEFORE angegeben wird, wird 
ein PRIOR-Kettenfeld in jeden Satz eingefUgt. (Die Kette wird 
dadurch PRIOR-verarbeitbar, als ware sie urspringlich als 
LINKED TO PRIOR definiert worden.) hi 


7. Wird die Kette als LINKED TO PRIOR definiert und die CHAIN- 
ORDER BEFORE-Angabe angegeben, so erhalten die Sutze nur ein 
PRIOR-Kettenfeld zugeordnet (keine Duplizierung von Kettenfeldern). 


8. Wenn der Satz als Detail einer CALC-CHAIN definiert wird, wird 
die CALC-CHAIN in Pagenummern-Reihenfolge sortiert. 
Ebenso ist die CHAIN-ORDER fur ein CALC DETAIL automatisch 


ABTER . 
0 
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LINKED TO PRIOR 


Funktion: Anlegen eines PRIOR-Kettenfeldes fUr jeden Daten- 
satz in der definierten Kette. 


Format: [LINKED TO PRIOR | 


Anmerkungen: 


1. Diese Angabe kann nur in Verbindung mit der Kettendefinition 
Option 1 (MASTER) verwendet werden. 


2. Durch diese Angabe wird in jedem Satz (gleichgtltig welcher 
Satztyp) ein zustitzliches Kettenfeld spezifiziert. (Es gehért 
zur Kette und zu allen Sétzen in der Kette.) Das Kettenfeld 
enthalt den RECORD IDENTIFIER des PRIOR-Datensatzes. 


3. Die Einfligung des PRIOR-Kettenfeldes erméglicht es, die Kette 
in beiden Richtungen zu verarbeiten. 


4. Die Verwendung dieser Angabe kann zweckmiifig sein, hat 
aber zwei Nachteile: 


- Erstens erhtht sich die Satzltinge (3 Stellen fur jeden Satz), 
um das PRIOR-Kettenfeld aufzunehmen. 


- Zweitens ist der auszufuUhrende VerkettungsprozeB langsamer. 
Die Verzégerung tritt sein, wenn ein never Satz eingefligt oder 
ein alter entfernt wird. Dabei mu8 jeweils das PRIOR-Ketten- 
feld des NEXT-Datensatzes getindert werden. 

Durch die Anwendung dieser Klausel ergeben sich Zeitvorteile 
bei gréBerem Platzbedarf. 


(@) 5. Durch diese Angabe kann der Satz sofort aus der Kette entfernt 
(REMOVE) werden, wodurch der physikalische Léschungsproze8 
beschleunigt wird. 
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Funktion: Die Bezeichnung der Felder eines kalkulierten 
Satzes, die zur Errechnung der Pagenummer fur die 
Plazierung des Satzes dienen. 


Formats [RANDOMIZE ON Feldname-2 RANDOMIZE ail 


Anmerkungen: 


1, Diese Angabe mu8 verwendet werden, wenn die Kettendefinitionen 
fur CALC (USER oder SYSTEM) CHAIN DETAIL erfolgen. 


2. Feldname-2 mu8 ein Steuerfeld der Stufe 02 im definierten Satz 
sein. 


3. Die Umrechnungsroutine, die in Anhang 7 beschrieben ist, 
verwendet die Werte der spezifizierten RANDOMIZE-Felder 
zur Errechnung der Page-Nummer bei der die Satzsuche beginnt. 
Auer bei Uberlaufbedingungen ist der Satz in dieser Page 
enthalten. 


4. Das Wort RANDOMIZE muf jedem spezifizierten Steverfeld 
vorangehen. IDS gestattet maximal 10 RANDOMIZE -Felder 
fur jede Kettenbeschreibung der Stufe 98. 


5. Die mit RANDOMIZE bezeichneten Felder werden bei der 
Satzspeicherung miteinander verglichen. Daher wird jeder 
Versuch, einen Satz mit identischen RANDOMIZE -Feldwerten 
zu speichern, als Fehler zurUckgewiesen. Die Fehlerbedingung 
wird in ERROR-REFERENCE vermerkt. In allen CALC CHAINS 
sind also keine DUPLICATES erlaubt. 


ay 


6. Die Reihenfolge der RANDOMIZE -Felder muf bei aflen 
Programmen, die mit der IDS-Datei arbeiten, gleich sein 
(siehe Anhang J ftir weitere Einzelheiten Uber die 
RANDOMIZE Routine). 
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-75- SELECT 


Funktion: Spezifizierung der Kriterien fir die Auswahl eines 
bestimmten Masters fUr Speicherungszwecke. 


Format: SELECT CURRENT MASTER 


Anmerkungen: 


1. Diese Angabe ist fur Primir~ und Sekundér-Details erforderlich. 
Sie gilt nicht fur ein CALC CHAIN DETAIL . Die Definition 
(CALC) impliziert, daB der durch die Ausgabe der Umrechnungs- 
routine spezifizierte Page-Kennsatz der auszuwdhlende Master ist. 


2. Durch die Angabe von CURRENT MASTER wird der Master des 
CURRENT ~Satzes dieser Kette ausgew&hli. Ist der CURRENT ~ 
Satz der Kette der Master selbst, dann ist dies der ausgewthlte 
Master. Das Benutzungsprogramm mu dafur sorgen, daB die 


laufende Eintragung in der Kettentabelle zum gewUnschten 
Master fihrt. 


3. Der Satz, der der Master der Kette mit dem zu bearbeitenden 
Detail ist, mu vor der Bearbeitung des Details gelesen werden. 


4. Diese Angabe betrifft die Anweisungen RETRIEVE Satzname 
RECORD bzw. ‘tNSERT. 


5. Diese Definition wird gegeften, um den zuklnftigen Ausbau 
zu erleichtern. 


Beispiel: 


Wenn in der Kettenbeschreibung die Angabe SELECT CURRENT MASTER 
enthalren ist, und ein Befehl RETRIEVE Satzname RECORD gegeben 
wird, priift der Block-Controller die Master-Eintragung in der 
Kettentabelle, 


Ist die Eintragung MASTER in der Kettentabelle gleich Null, so 
entsteht eine Fehlerbedingung, und der Satz kann nicht gelesen werden. 
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ASCENDING/DESCENDING -76 - 
RANGE 6 


Funktion: | Angabe der Datenfelder, die die Reihenfolge der 
Details in einer Kette steuern. 


Format: [Settee [RANGE JkeY IS Feldname [Sessa \y 


DESCENDING, 
ae 


Anmerkungen: 
1. Feldname mu8 ein Steverfeld der Stufe 02 im Satz sein. 


2. Fur jede Kettenbeschreibung der Stufe 98 sind maximal 
10 Sortierschlisselfelder zulissig. 


3. Werden mehrere Sortierschliissel zur Definition benttigt, so 
missen die verschiedenen Feldnamen vom Ubergeordneten bis zum 
untergeordneten SortierschlUssel aufgefuhrt werden. Jeder 
Sortierschlssel muB separat als ASCENDING oder DESCENDING 


definiert werden. 


4. Die Angabe ASCENDING RANGE _modifiziert die Suchfunktion 
so, daB der Suchvorgang solange fortgesetzt wird, bis der 
SortierschiUsselwert des Satzes gleich oder gréfer als der Wert 
in der WORKING-STORAGE ist. 


5. DESCENDING darf nicht in Verbindung mit RANGE verwendet 
werden, nur ASCENDING . 


6. ASCENDING RANGE wird benutzt, wenn der Satz als 
RANGE-MASTER dienen soll. Ein RANGE-MASTER ist ein 
Detail in einer sortierten Kette und zusdtzlich Master einer 6 
Kette, die Details einschlie®t, die in den Bereich des 
RANGE-MASTER fallen. Der in Feldname enthaltene Wert 
steuert die aufsteigende Anordnung der RANGE-MASTER. 
Zugleich gibt er die obere Grenze des Nummernbereichs an, 
der zu diesem RANGE-MASTER gehirt. Die Aufgabe der 
RANGE-MASTER ist die Segmentierung langer sortierter 
Ketten und die Reduzierung der Zugriffszeit auf einzelne Details. 


~ 
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-77 - DUPLICATES 


Funktion: Angabe, ob Sutze mit identischen Werten in den 


SortierschlUsselfeldern in einer Kette existieren 
durfen und, falls dies erlaubt ist, wie sie in die 
Kettenordnung eingefligt werden sollen. 


Format: 
ARE FIRST 
[ ouruicates ARE LAST | 
NOT ALLOWED 
Anmerkungen: 
1. Die DUPLICATES-Option wird nur in Verbindung mit der 


Kettenbeschreibung, Option 2, Format JI1, verwendet. 
Sie ist zwingend vorgeschrieben, wenn die Kette durch 
CHAIN-ORDER als sortierte Kette definiert worden ist. 


Wenn doppelte Datensiitze (DUPLICATES) erlaubt sind, kann 


das neve Detail als erstes (FIRST) oder letztes (LAST) in die 
Folge doppelter Sdétze eingereiht werden. 


Wurde fur eine sortierte Kette DUPLICATES NOT ALLOWED 
angegeben, so ergibt sich bei dem Versuch, einen 
Duplikations-Satz einzuflgen, eine Fehlerbedingung. Sie wird 
dem Benutzer im Feld ERROR-REFERENCE angezeigt. Der 
Benutzer mu8 dieses Feld jeweils prifen. 


Wurde die Kette als CALC CHAIN definiert, so ist die 
DUPLICATES-Option nicht erforderlich. Fur alle CALC 
CHAINS wird die Bedingung DUPLICATES NOT ALLOWED 
angenommen. IDS pruft die RANDOMIZE-Felder auf Dupkikate. 


Da CALC -CHAINS abgesehen von der Page-Numerierung 
keine definierte Reihenfolge aufweisen, mu® die gesamte 
CALC CHAIN abgesucht werden, wenn ein never Satz ge- 
speichert werden soll. Dadurch wird sichergestellt, da@ die 
implizierte Bedingung DUPLICATES NOT ALLOWED einge- 
halten wird. 


Wenn die Kette nicht als sortiert definiert wurde, ist 
DUPLICATES NOT ALLOWED nicht erforderlich und ohne 
Bedeutung. 


a ed 
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Funktion: | Anlegen eines Kettenfeldes in jedem Detail des 


definierten Satztyps, das den RECORD IDENTIFIER 
des Masters enthalt. 


Format: [LINKED TO MASTER i 


Anmerkungen: 


1. 


G-100 


Das Master-Kettenfeld erhaht die Lange des definierten 
Satztyps um 3 Stellen. 


Diese wahlfreie Angabe steigert die Leistung des Systems, 

indem sie eine direkte Verbindung von jedem Detail zum 

Master herstellt. (Bei Verwendung dieser Option ist es daher 6, 
nicht notwendig, seriefl alle Details abzusuchen, um den Me 
Master einer Kette zu finden.) 


Das Bestehen von Kettentabellen sowie deren Verwendung 
ist zu beachten. 


Bei Fehlen des Masters in der Kettentabelle oder einer 
durch Verwendung der LINKED TO MASTER-Option 
erstellten Hinweisadresse wird, wenn ein Befehl 

RETRIEVE MASTER Kettenname CHAIN oder HEAD Ketten- 
name gegeben wird, der jeweils ndchste Satz (NEXT) 
bearbeitet, bis der Master gefunden wird. 


y 
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4.4, PROCEDURE DIVISION 
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4.4, PROCEDURE DIVISION 


Die Funktionen der IDS-Befehle beziehen sich auf das Einspeichern, 
Suchen, Ubertragen in den WORKING-STORARE-Bereich, 
Modifizieren und Léschen von Sétzen. Zusétzlich sorgen diese 
Befehle automatisch fUr die Wartung der Struktur der IDS Datei, 

die aufgrund der definierten Kettenbeziehungen aufgebaut wurde. 


Die Kommunikationszone zwischen den IDS~Befehlen und den 
Befehlen der COBOL PROCEDURE DIVISION sind die 
WORKING-STORAGE-Felder, die fur jedes Feld der Stufe 02 

der IDS-Section angelegt werden. Alle Verbindungen von 

CCSOL auf Daten der IDS-Datei beziehen sich auf die WORKING 
STORAGE-Felder. 


Einige allgemeine Regeln mit Bezug auf die IDS-Befehle sind 
folgende: 


- In einer Zeile des Kodierblattes darf.nur jeweils ein Befeht 
stehen. 

- Ein IDS-Befeh! darf nur aus einer Angabe bestehen. 

- Allen IDS-Befehlen mu8 eine Eintragung ENTER IDS vorausgehen. 


-Wird einem IDS-Befehl ein COBOL-Prozedurname zugeordnet, 
so muf dieser auf einer separaten Zeile vor dem IDS-Befehl 
stehen, dem er zugeordnet ist. (Vor ENTER IDS.) 


- Auf jeden IDS-Befehl mu® IF ERROR GO TO folgen 
(Ausnahme: IF -Befeh!). 


- Der Punkt am Ende des IDS-Befehls bewirkt eine Verzweigung 
vom [DS-Translator zum COBOL-Compiler. 


Beispie!: 
ENTER IDS. 
STORE Satzname IF ERROR ...-. 


ENTER IDS. 


BefehI-] IF ERROR.... 
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Aufgrund der gegenwirtigen Beschriinkungen des COBOL -Compilers 
gilt folgendes: 


=Wenn ein COBOL-IDS Source -Programm segmentiert werden soll, 
kann der Benutzer nicht SECTION O1 spezifizieren. Diese 
SECTION ist fur IDS reserviert. 


- In einem segmentierten COBOL-IDS-Programm kann der Benutzer 
nur Paragraphennamen in dem Segment, in dem er gerade arbeitet, 
oder im residenten Segment (d.h. SECTION 01) mit IDS-Befehlen 
ansprechen (z.B.: IF ERROR GO TO). 


- Der Benutzer kann keinen Paragraphennamen auf die END-OF- 
PROGRAM-Karte setzen; diese mu8 die letzte im Source-Karten- 
satz sein. 


- Der Benutzer kann keinen PERFORM-Befehl fUr den letzten, vor 
der END-OF -PROGRAM Karte stehenden Paragraphen schreiben, 
ausgenommen er hat einen EXIT-Befehl vor die END-OF -PROGRAM 


Karte eingeftigt . 


- Der Benutzer kann nur einen PERFORM THRU-Befeh! fur einen 
Paragraphen schreiben, der einen MODIFY-Befehl enthalt. 


Auf den folgenden Seiten ist beschrieben, wie diese Satzformate 
verwendet werden kénnen und welche Einschrénkungen fur sie 
gelten. 


———  ——— 
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Funktion: Ubertragung aller modifizierten Pages aus den 


Page-Puffern zur Datenbank und Abschlu8 der Datei. 


Format: CLOSE IF ERROR GO TO Paragraphen-Name. 


Anmerkungen: 


1 


Dieser Befehl muB der zuletzt ausgeftihrte IDS -Befehl sein. 
Es erfolgt kein automatischer Abschlu@ der Datei. 


Durch diesen Befehl werden Pages mit gesetztem "MUST WRITE" - 
SWITCH auf die Platte zurickgeschrieben. 


Eine Datei mu erdffnet (OPEN) worden sein, bevor der 
CLOSE-Befehl ausgefUhrt werden kann. 


I 
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Funktion: Lischen des CURRENT -Satzes aus der IDS-Datei. 


Obwohl die physikalische Léschung nicht eintritt, 
bevor der Satz aus aflen Ketten geldst ist, steht er 
fur die weitere Bearbeitung nicht mehr zur 
VerfUgung. 


Format: DELETE IF ERROR GOTO Paragraphenname. 


Anmerkungen: 


1. 


Implizit gilt die DELETE-Anweisung fir den letzten 
bearbeiteten Satz. 


Wenn das zu léschende Detail Teil einer PRIOR-Kette ist, 6 
wird es aus der Kette gelést (REMOVE). Wennes aus allen . 
Ketten gelést ist, wirdes auch aus der Datei physikalisch 

geléscht. 


Ist eine Kette, an der der Satz beteiligt ist, nicht PRIOR- 
bearbeithar, so wird er als nicht verfUgbar markiert. Er wird 
aus der Kette geldst (REMOVE), wenn er bei einer RETRIEVE 
NEXT -Operation in der Kette gefunden wird. 


Wenn die Ketten nicht PRIOR bearbeitbar sind und der Satz 

entfernt werden soll, ohne darauf zu warten, bis er wahrend 

eines RETRIEVE NEXT gefunden wird, kann er vor dem 

Abrufen von DELETE durch REMOVE aus allen Ketten gelést 

werden. (Wenn der Satz aus der letzten Kette entfernt wird, 

wird eine Fehlerbedingung angezeigt.) Diese Methode kann 

jedoch sehr zeitraubend sein. re 


Wenn der Master einer Kette geléscht werden soll, und es 
bestehen abhiingige Details, kann das Léschen nicht erfolgen 
und das Programm erhilt eine Fehfernachricht. Aile Details 
mUssen vor dem Master geldscht werden. 


Wenn der DELETE-Vorgang ohne Fehler abgelaufen ist, werden 
die Kettentabellen, in denen der Satz ein Master war, auf 
Null gesetzt. Die Kettentabellen der Ketten, in'denen der 
Satz ein Detail war, werden nicht vertndert, wenn der Satz 
nicht aus der Kette gelést wurde. 


Bei einer indizierten Dateiorganisation, d.h. Satz A ist Master 
von Satz B, der Master von Satz C ist, mUssen zundchst mit 
einem RETRIEVE NEXT alfe B und C Siitze geléscht werden. 
erst dann kann mit einem DELETE der Satz A geléscht werden. 


C 
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Funktion: Aufsuchen und Ubertrag in die WORKING STORAGE- 
SECTION der Datenfelder des Masters, der gerade 
verarbeiteten Kette mit dem im Befeh! angesprochenen 
Kettennamen. 


Format: HEAD Kettenname CHAIN IF ERROR GO TO Paragraphenname. 


Anmerkungen: 


1. Kettenname muB der Name einer Kette sein, die durch 
eine Eintragung auf Stufe 98 in der DATA DIVISION 
definiert wurde. AuBerdem muB die Kette den gerade 
aufgefundenen Satz enthalten. 


2. Dieser Befehl wird durch das folgende Beispiel einer Daten- 
struktur im IDS-Stenogramm erldutert. 


Kette A 


Abb. 32: Datenstruktur im IDS-Stenogramm 
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Beispiel: 


Angenommen (in Abb. 32), Kette X wurde durchlaufen und 
REC-AA gefunden. REC-AA ist ein Detail von 3 Ketten 
(Kette Y und Kette A). Weiterhin sind zusdtzliche Informa- 
tionen erforderlich und diese befinden sich in REC-AB, dem 
Master von Kette A. Der Befeh! HEAD Kette A CHAIN wird 


gegeben, 


3. Der HEAD~Befehl schlie8t ein implizites Ubertragen (MOVE) 
des Satzes in die WORKING STORAGE ein. Als Ergebnis 
wird der Dotensotz REC-AB aufgegriffen und in den Arbeits= 
speicher (WORKING STORAGE) Ubertragen. 


4, Noch Ausfthrung des HEAD -Befehls ist der Zustand der Ketten- 
tabellen wie folgt: 


iy 


Die RECORD IDENTIFIER der aufgefundenen Master sind die 
CURRENT -Siize ihres Typs und auBerdem die CURRENT -Satze 
in jeder Kette, in der sie als Details definiert sind. 


Jedoch ist beim Auffinden von Satzen durch 
BY 
.| NEXT 


PRIOR 
MASTER 


in Kette X, Kette Y oder Kette A der RECORD IDENTIFIER 

im CURRENT-Satz der des urspruinglich aufgefundenen Satzes; 

d.h. die Kettentabellen der Ketten, in denen dieser Satz ein C 
Master ist, bleiben unverdndert. 


C 
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- 87 - HEAD 


Angenommen, die Ketten X, Y, A und A-l sind nicht 
PRIOR- oder HEAD (LINKED TO MASTER). 


Beispiels 


REC-AA 
Kette A 


MASTER unbekannt 


REC-AA 
Kette X 


MASTER | REC-XR 


REC-AA 


RECA 


Abb. 33: Kettentabellen_- Nicht PRIOR oder HEAD 


Abb. 33 zeigt die Kettentabellen nach dem Auffinden von REC-AA 
Uber Kette X und vor AusfUhrung des Befehls HEAD Kette A CHAIN. 
Es ist zu beachten, daf fur jede Kette, in der REC-AA ein Detail 
ist, eine Ketrentabelle vorhanden ist. Nach AusfUhrung der HEAD- 
Anweisung erscheint die Kettentabelle wie in Abb, 34 dargestellt. 


REC-AA REC-AA REC-AA 
Chain X Chain Y Chain A 


CURRENT | REC-AA 
REC-AA+1 


Abb. 34: Kettentabellen nach AusfUhrung der HEAD -Anweisung 


In Abb. 34 bleiben die Kettentabellen der Ketten X und Y unver- 
Undert. Die einzige Anderung an der Kettentabelle der A-Kette besteht 
darin, daB die MASTER-Position mit dem REFERENCE CODE des Masters 
fortgeschrieben wurde. 
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ar 


ae Kette X 
Wirdalso = RETRIEVE < 5>>— > OF Kette Y CHAIN gegeben, 
———— PRIOR —- 
Kette A 


&) 


so ist REC-AA der CURRENT -Satz der 


Kette X 
zum NEXT Datensatz von Kette Y lbergeht . 
PRIOR KetteA J 
5. Es ist zu beachten, daf die Funktion des Befeh!s, abgesehen ri 
von der Art, in der CURRENT von CHAIN NEXT fortgeschrieben 


wird (siehe auch Anm. 4), sehr Ghnlich dem Befehl RETRIEVE 
MASTER RECORD OF Kettenname CHAIN ist. 


REC-AB 
Kette Al 


MASTER unbekannt 


PRIOR unbekonnt 
CURRENT REC-AB 
NEXT REC-AB+] 


Abb. 35: Fortgeschriebene Kettentabelle. 
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-89 - IF ERROR GOTO 


Funktion: Anzeigen von Fehlern und Programmverzweigung, 
wenn ein Fehler auftritt. 


Format: IF ERROR_GO TO Paragraphenname -1. 


Anmerkungen: 


1. Diese Angabe mu8 auf jeden [IDS-Befehl mit Ausnahme von 
IF Satzname RECORD folgen. 


2. Feld abfragen, die Fehlerart untersuchen und eine entsprechende 
Routine im Programm starten. 


3. Das Feld ERROR-REFERENCE mu nach jedem Fehler auf Null 
zurUckgesetzt werden, bevor der weitere Ablauf von Ausfihrungs = 
routinen erfolgen kann. (Alle IDS-Befehle prufen das ERROR- 
REFERENCE Feld vor ihrer Ausfthrung.) 


a 
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IF Satzname -90 - 

Funktion: Ubergabe der Steuerung aus der normalen Bearbeitungs- 
folge an einen anderen Programmteil, wenn ein Satz 
des spezifizierten Typs (TYPE) gefunden wird. 

Format: 


IF Satzname RECORD GO TO Paragraphenname ELSE IDS-Befehl 


Anmerkungen: 


1. 


G-100 


a 8 


Diese Anweisung darf logischerweise nur auf: 


RETRIEVE DIRECT, RETRIEVE EACH, oder 


’ 
RETRIEVE {ext \ RECORD OF Kettenname CHAIN. 
1 PRIOR pe cere! 


folgen. 


Dieser bedingte Befehl impliziert einen Vergleich des gerade 
aufgefundenen Satztyps mit dem durch Satznamen bezeichneten 
Satztyp. Gleick der CURRENT -Typ dem genannten Typ, so ist 
die Bedingung erful!t und es wird auf den Paragraphennamen 
gesprungen. Ejne falsche Bedingung Ubertrigt die Steverung an 
den nitichsten Befehl. 


Dieser Befehl ist der einzige, der nicht IF ERROR erfordert. 


Er kann verwendet werden, um festzustellen, ob der Master einer 
Kette wahrend einer wiederholten Folge des RETRIEVE NEXT - 
Befehls angetroffen wurde. 


"IDS-Befeh!" kann jedes beliebige IDS-Verb (STORE, INSERT, etc.) 
sein. Wo erforderlich, mu8 ihm IF ERROR GO TO folgen. 


A 
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Funktion: Einflgung eines Satzes in eine CONDITIONAL CHAIN 


(bedingte Kette, alle Ketten mit Ausnahme von CALC 
sind bedingt). Dadurch kénnen Sdtze selektiv in eine 
Kette eingereiht werden, der Satz mu8 jedoch als Teil 
der Kette definiert worden sein. 


Format: INSERT Satz-Name-1 RECORD IN Ketten-Name-2 CHAIN 


IF ERROR GO TO Paragraphenname-3. 


Anmerkungen: 


1. 


G-100 


Satz~Name-1 und Ketten-Name-2 mUssen durch 01- bzw. 
98-Eintragungen in der IDS-SECTION definiert werden. 
Satz-Name-1 mu8 als Ketten-Name-2 DETAIL definiert sein. 


Satz-Name~-1 mu der CURRENT -Satz seines Typs sein, d.h. er 
muB8 der letzte seiner Art sein, der mit RETRIEVE, STORE, 
MODIFY, MOVE, INSERT oder REMOVE angesprochen wurde. 


Bei Verwendung von INSERT wird davon ausgegangen, daf alle 
Steuerfelder dieses Satzes mit den entsprechenden Werten im 


WORKING-STORAGE-Bereich initialisiert worden sind. 


Der genannte Satz wird entsprechend den durch die 01- und 

98 -Eintragungen der IDS-SECTION spezifizierten Anordnungs— 

regeln in die Kette eingefigt. Der Benutzer muf3 darauf.achten, 

da die laufende Kette die gewUnschte ist. Der Master der Kette 
mu gelesen worden und der CURRENT -Satz seines Typs sein. 


Der eingefugte Satz wird der CURRENT-Satz des Systems, seines 
Typs und der genannten Kette. 


In der CALC CHAIN definierte Details werden bei der 
Speicherung des Satzes durch IDS mit dem entsprechenden 
Page -Header verkettet. 


Wurde durch den INSERT-Proze8 ein Satz mit identischen 
Steuerfeldwerten erzeugt - ein Versto8 gegen die Satzbeschreibung 
(DUPLICATES-Angabe) - so wurde der Einflgungsvorgang abge — 
brochen und eine Fehlerbedi ngung in ERROR -REFERENCE 
angezeigt. 


a 
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-92 - 


Funktion: — Modifikation des Inhalts eines Feldes im 


gelesenen Satz. 


Format: 


MODIFY Feldname-1 [ ,Feldname-2,...] IF 


Anmerkungen: 


Ty 


Das modifizierte Feld muB eine 02-Definition im letzten 
gelesenen Satz sein. 


Der Inhalt der WORKING~STORAGE wird in das entsprechende 
Feld des Satzes ubertragen . 


Wenn ein Feld ein Steuerfeld fur die Einordnung von Sttzen 
ist, und die Einordnungswerte werden vertindert, so wird zwar 
die logische Position des Satzes vertindert, aber der Satz 
bleibt mit seinem Master verbunden. 


Es ist zu beachten, da es zu Unstimmigkeiten bei der Ver- 
wendung von WORKING-STORAGE kommen kann, wenn das 

zu modifizierende Feld ein Steuerfeld ist. Nach Beendigung 

des urspriinglichen RETRIEVE Satz-Name mussen die ent — 
sprechenden Steverfelder in der WORKING-STORAGE mit den 
laufenden Werten in der IDS-Datei initialisiert werden. Da die 
MODIFY -Funktion annimmt, daB sich die vertinderten Werte 

in der WORKING-STORAGE befinden, ist ein Konflikt offen- 
sichtlich. Um dieses Problem zu lésen, sollte der Benutzer 
zundchst "RETRIEVE Satz-Name RECORD" ausfUhren, dann die 
WORKING-STORAGE mit den vertinderten Werten initialisieren 
und schlieBlich "MODIFY Feld-Name" ausfthren. 


Die Vertinderung des Masters,mit dem ein Detail verkettet ist, 
erfordert die Verwendung der REMOVE- und [NSERT-Verben 

sowie das entsprechende Aufgreifen des gewUnschten Masters 

oder eine gleichwertige Verarbeitung. 


SSS 
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ERROR GO TO Paragraphenname. 
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-93 - MOVE 


Funktion: Ubertragen der Felder eines Satzes in die 


WORKING-STORAGE SECTION. 


Format: 


MOVE TO WORKING-STORAGE IF ERROR GO TO Pargraphenname. 


Anmerkungen: 


Te 


Alle Felder kénnen nur angesprochen werden, wenn sie sich im 
W ORKING-STORAGE-Bereich befinden. Sie mUssen daher aus 
den Pufferbereichen in die WORKING-STORAGE Ubertragen 
werden. 


Der gesamte Dateninhalt des zuletzt aufgegriffenen Satzes 
{CURRENT des Systems) wird vom Page-Puffer in den Arbeits~ 
speicherbereich Ubertragen. 


Die Identifikations- (Satzpositionsfelder) und Kettenfelder 
werden nicht Ubertragen. 
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Funktion: — Eréffnung der IDS-Datei. 


Format: 


RETRIEVAL 


OPEN FOR tet IF ERROR GOTO Paragraphenname. 


Anmerkungen: 


1. 


Dieser Befehl mu vor jedem anderen IDS~-Befehl ausgefuhrt werden. 


2. Wenn die Datei fur RETRIEVAL gedffnet ist, kénnen die STORE-, 


DELETE-, INSERT-, REMOVE und MODIFY-Befehle nicht aus- 
gefthrt werden. Ein Versuch, diese Anweisungen dennoch 

zu benutzen, fuhrt zu einem Fehler wahrend der Programm- 
Ausfthrung. 


Wenn die 


f RETRIEVAL } 
[UPDATE J 


Angabe nicht verwendet wird, wird RETRIEVAL angenommen. 
Die Werte aller Kettentabellen werden auf Null gesetzt. 


Wenn die IDS-Dateibeschreibung (MD) nicht mit der bei der 
Erdffnung benutzten identisch ist, wird eine Fehlerbedingung 
angezeigt und das Programm abgebrochen. 


Die Anzahl der Puffer wird anhand der PagegréGe und dem vom 
Programm bendtigten Platz bestimmt. Mindestens ein Puffer 

ist erforderlich, die meisten Programme kinnen jedoch wirksamer 
ausgefUhrt werden, wenn mindestens 3 bis 5 Puffer vorhanden sind. 


Ist bei der Kompilierung nicht genUgend Platz flr wenigstens 
einen Puffer, so wird eine Fehlerbedingung angezeigt. 


re EE 
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Besondere Aufmerksamkeit ist der Position des ersten 
OPEN-Befehls zu geben. Es wird empfohlen, sie an den 

Beginn der ObjektprogrammausfUhrung zu setzen, weil 

der erste IDS-OPEN-Befeh! das Lesen einer Karte bewirkt, 

um die fur die Initialisierung benttigten Parameter zu erhalten. 
Wenn dieser erste IDS-OPEN -Befeh! vor allen anderen 
Programmfunktionen ausgefuhrt wird, kann die IDS-Karte 
{siehe Anlage L) immer die erste Karte sein. 

Es ist zu beachten, da®B diese Vorschrift nur fUr den ersten 
IDS-OPEN-Befeh! gilt, d.h. nur die erste IDS-OPEN-An- 


weisung bewirkt das Lesen einer Karte. 


In jeder anderen Hinsicht entsprechen die Regeln fur den 
OPEN-Befeh! denen von COBOL; d.h. eine Datei muB erdffnet 
(OPEN) sein, bevor irgendwelche Daten aufgegriffen oder 
bearbeitet werden kénnen, und mu8 geschlossen (CLOSE) sein, 
bevor ein weiterer OPEN~Befehl ausgefUhrt werden kann. 


TEE 
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Funktion: Lusen des CURRENT -Satzes aus der angegebenen Kette. 


Format: 
REMOVE Satz-Name-1 RECORD FROM Ketten-Name-2 CHAIN 


IF ERROR GO TO Paragraphenname . 


Anmerkungen: 


1. Der zu lésende Satz mu CURRENT seines Typs (d.h. der 
letzte verarbeitete Satz dieses Typs) sein. 


2. Satz-Name-I und Kette-Name-2 missen in der IDS-SECTION 
definiert sein. Au@erdem mu8 Satz~Name-1 als ein Ketten- ¢ 
Name-2 DETAIL -Satz definiert sein. 


3. Ketten-Name-2 mu eine bedingte Kette (keine CALC CHAIN) sein. 


4. Als CALC CHAIN DETAIL (auch USER-CALC CHAIN DETAIL) 
definierte Stitze werden beim DELETE ETE (Lésch) -Vorgang aus der 
CALC CHAIN entfernt. 


5. Der genannte Satz ist der aus der angegebenen Kette geléste 
Satz. Der Benutzer muf darauf achten, daB der Satz, wenn er 
nur an CONDITIONAL CHAINS beteiligt ist und durch diesen 
Befeh! aus der letzten Kette gelést wird, nicht automatisch 
physikalisch geléscht wird, sondern da®B eine Fehlerbedingung 
angezeigt wird. 


Der Benutzer mu8 den RECORD IDENTIFIER zwischenspeichern, C 
wenn er den Satz sptiter wiederfinden und bearbeiten will. 

Wenn der Satz aus allen Ketten entfernt ist, kann er nur mittels 

RETRIEVE DIRECT oder RETRIEVE EACH aufgefunden werden. 

Wird der Satz aus seinem RETRIEVAL VIA Ketten-Name durch 

REMOVE gelést, kann er spater nicht miftels RETRIEVE Satz- 

Name-I RECORD wieder gelesen werden; dies geht nur mit 

Hilfe von RETRIEVE DIRECT, RETRIEVE EACH oder durch 
Kettenverarbeitung, wenn er noch ein Detail in einer anderen 

Kette ist. 
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Wenn ein Satz aus einer Kette gelist wird, wird der PRIOR- 
Satz in der Kette der CURRENT-Satz dieser Kette, aber 
nicht der CURRENT-Satz seines Typs oder des Systems. 

Ein Satz, der Detail einer’ Kette ist, kann mit Hilfe der 
folgenden Befehlsfolge mit einem anderen Master derselben 
Kette verknUpft werden: 


RETRIEVE (Lesen) Satz, der der Master der gewUnschten 
Kette ist. 


RETRIEVE gewUnschtes Detail. 

MOVE (Ubertragen) Daten in den Arbeitsspeicherbereich. 
REMOVE (Entfernen) Detail aus der Kette. 

RETRIEVE gewUnschter never Master der Kette. 


INSERT (Einflgen) Detail in die Kette. 


a ED 
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Funktion: Auffinden eines Satzes und Bereitstellen fur die 
Verarbeitung. 


Format: 


Satzname 7 
eet Satzname } RECORD 


DIRECT 


RETRIEVE ¢ |CURRENT 


RES | RECORD OF Kettenname CHAIN 
D 


OTO Paragraphenname -1 


IF ERROR GOTO Paragraphenname-2. 


Anmerkungen: 


1. Die verschiedenen Formen des RETRIEVE-Befehls werden im 
folgenden als Satz-Spezifikation bezeichnet. 


2. Der Satz-Name mu8 durch eine 01-Satzbeschreibung in der 
IDS-SECTION definiert sein. 


3. Der Ketten=Name mu8 durch eine 98-Kettenbeschreibung in der C 
IDS-SECTION definiert sein. 


4. Der RECORD IDENTIFIER des gefundenen Satzes ist im 
DIRECT -REFERENCE ~Feld verfUgbar. 


5. Von den acht Satz~Spezifikationen, die mit dem RETRIEVE -Befehl 
verwendet werden kénnen, kiénnen zwei (Satz-Name und DIRECT) 
als kontexunabhingig oder -absolut klassifiziert werden. Das 
bedeutet, da sie nicht von einer vorhergehenden Satz- 
bearbeitung abhingen. 


- RETRIEVE Satzname RECORD 


Der zu lesende Satz ist abhdngig von der RETRIEVAL VIA-Klausel, 
die als Teil der 01-Eintragung in der IDS-SECTION definiert ist, 
und von dem Wert der Steverfelder der WORKING-ST ORAGE, 


die den Satz eindeutig identifizieren. C 


Dee ee 
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~99 - RETRIEVE 


Der aufzugreifende Satz ist derjenige, dessen 
RECORD IDENTIFIER im Kommunikationsbereich 
DIRECT-REFERENCE gespeichert ist. 


- RETRIEVE DIRECT 


Die anderen sechs Satzspezifikationen kénnen als kontex- 
abhiingig klassifiziert werden, da der tatstichlich zu lesende 
Satz von der vorhergehenden Satzbearbeitung abhingig ist. 


CURRENT 
NEXT 

~ RETRIEVE PRIOR 
MASTER 


RECORD OF Kettenname CHAIN ~ 


Der zu lesende Satz ist abhtingig vom CURRENT-Satz 
innerhalb der spezifizierten CHAIN. Bei Angabe von 
NEXT oder PRIOR wird der betreffende Satz, ungeachtet 
seines Satztyps, gelesen. Bei Angabe von MASTER wird der 
Master der genannten Kette aufgegriffen. Wenn kein Satz 
bearbeitet wurde oder wenn der letzte Satz des genannten 
Satztyps geléscht wurde, verzeichnet ERROR -REFERENCE 
eine Fehlerbedingung. 


@ RETRIEVE CURRENT Satzname RECORD 


Der zu Jesende Satz ist der letzte Satz des spezifizierten 
Satznamens der verarbeitet wurde. 

Wenn kein Satz verarbeitet worden ist oder der letzte Satz 
des genannten Satztyps geléscht worden ist, wird in 
ERROR -REFERENCE eine Fehleranzeige gesetzt. 


- RETRIEVE EACH AT END GO TO Paragraphenname -1 


Diese Satz-Spezifikation bewirkt ein serielles Absuchen der 
1DS-Datei, beginnend beim RECORD IDENTIFIER der im 
Bereich FIRST-REFERENCE enthalten ist. Dieser Befehl beginnt 
bei dem Satz, dessen RECORD IDENTIFIER geladen ist, und 
endet mit dem Satz, dessen RECORD IDENTIFIER grd8er als 
der Inhalt von LAST-REFERENCE. ist. Die Steuerung geht dann 
an Paragraphenname~1 Uber. 
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RETRIEVE - 100 - 


Der Benutzer mu8B die Kommunikationsbereiche mit den 
entsprechenden RECORD IDENTIFIER initialisieren. 
Er kann alle Satze in der Datei durch die wiederholte 
Verwendung dieser Satzspezifikationen lesen. Beim 
Aufgreifen eines Satzes wird der RECORD IDENTIFIER 
in FIRST-REFERENCE um | erhtht, so da die weitere 
Verwendung dieser Spezifikation initialisiert ist. 

Wenn FIRST-REFERENCE gleich Null oder gréBer als 
die Dateibegrenzung ist, beginnt das Aufgreifen bei 
Page 1, Line 1. Ist LAST-REFERENCE gleich Null oder 
grdBer als die Dateibegrenzung, so wird eine Fehler- 
bedingung angezeigt und das Programm beendet. 


6. Der zu lesende Satz wird als der CURRENT-Satz des Systems, 
seines Typs und einer jeden Kette, in der er definiert ist, 
aufgezeichnet. 


7. Kann ein Satz nicht entsprechend den Spezifikationen der 
Zugriffsanweisung (RETRIEVE) aufgegriffen werden, so wird 
in ERROR-REFERENCE eine Fehleranzeige gesetzt. 


8. Durchfuhrungszeiten: 


~ PLACE NEAR-Zugriffe sind verhiiltnismaBig schnell. 


- DIRECT- und nicht PLACE -Zugriffe erfordern gewShnlich 
einen Suchlauf je Zugriff. 


- CALC CHAIN~Zugriffe bendtigen etwas mehr als einen 
Suchlauf wegen mdglicher Uberltiufe. Die Uber einen Such- 
lauf hinaus bendtigte Zeit potenziert sich, wenn sich die 
Dateibelegung Uber eine bestimmten Mindestwert (um 75 % 
herum) erhht. 

- PRIOR- oder MASTER-Zugriffe in nicht-PRIOR= oder 
nicht -HEAD~Ketten sind u.U. verhéltnismaBig langsam, da 
IDS unter diesen Bedingungen die Kette als Schlei fe durchlauft, 
um den gewUnschten Satz zu finden. 


- Die sequentielle Kettenverarbeitung ist gewShnlich am 
langsamsten. 


er SS a 
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~ 101 - STORE 


Funktion: Einspeichern eines Satzes in die IDS—Datei 
entsprechend seiner Definition. 


Format: STORE Satz-Name-1 RECORD; IF ERROR GO TO Paragraphenname. 


Anmerkungen: 


1. Satz-Name-1 mu8 durch eine Satzbeschreibung auf Stufe 01 
in der IDS-SECTION definiert sein. 


2. Bei Verwendung dieses Befehls wird angenommen, dai alle 
Felder dieses Satzes mit den gewUnschten Werten in der 
WORKING STORAGE initialisiert worden sind. 


3. Der Satz wird in Ubereinstimmung mit den Angaben in der 
Satzbeschreibung in die Datenbank eingespeichert. 
Kalkulierte Sdtze (siehe RETRIEVAL VIA CALC Kette) 
werden automatisch in ihre CALC -Ketten eingefligt. Zu 
diesem Zeitpunkt findet keine weitere VerknUpfung statt 
(siehe Anm. 8 und INSERT ~-Anweisung)- 


4, Der RECORD IDENTIFIER des gespeicherten Satzes steht 
dem Benutzer nach erfolgter Speicherung im Feld 
DIRECT-REFERENCE zur Verfiigung. 


5. Wenn ein Primirsatz gespeichert wird, wird ein RECORD 
IDENTIFIER in das durch die Anweisung RETRIEVAL VIA 
Feldname FIELD genannte Feld ubertragen. 


6. Der gespeicherte Satz wird verzeichnet als der CURRENT - 
Satz des Systems als der CURRENT -Satz seines Typs und als 
der CURRENT -Satz jeder Jette, in der er definiert ist. 


7. Wenn die Satzspeicherung einen Satz mit identischen 
Steverfeldwerten, in Ubertretung der Satzbeschreibung 
(DUPLICATES -Anweisung oder CALC CHAIN DETAIL), 
erzeugt, wird der Speichervorgang abgebrochen und eine 


Fehlerbedingung in ERROR-REFERENCE angezeigt . 


G-100 SSeS 
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Die INSERT-Anweisung mu dazu verwendet werden, den 
gespeicherten Satz mit den Ketten (ausgenommen 

CALC CHAIN) zu verknipfen, in denen er als Detail 
definiert ist (siehe INSERT-Verb). 


Uberlavfregel: 


Wenn in der spezifizierten Page kein Platz verfgbar ist, 

wird der Satz in der ersten Page in aufsteigender Nummern~ 
folge, in der Platz ist, gespeichert. Ist die obere Nummern~ 
grenze erreicht, so beginnt der Durchlauf erneut am Anfang 

des Nummernbereiches, um freien Platz zu finden. Die 

durch die IDENTIFIER-RANGE -Anweisung festgelegten Grenzen 
werden bei diesem Vorgang eingehalten. 


a 
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IDS -Arbeitsweise 
Dateierstellung und Aktiv ierung 


Bevor eine IDS-Datei erstellt werden kann, mUssen die ent - 
sprechenden Bereiche auf der Platte initialisiert werden. Dies 
geschieht durch die AusfUhrung eines separaten Programms, das 

IDS File Initilization Program (FILE-INT). Arbeitsweise und 
Parameter des FILE-INT-Programms sind unter Punkt 7.8 beschrieben. 


Zusammenarbeit mit EDOS 


Der IDS-Translator und das durch die COBOL-Kompilierung nach der 
Translator-Phase erzeugte Objektprogramm laufen unter der Steuerung 
des EDOS ab. Sowohl der Translator als auch das kompilierte 
IDS/COBOL-Programm bendtigen EDOS -Steverkarten fur die 
Durchfuhrung. 


Die IDS-Executive -Routinen sind einzeln in der EDOS-Unter- 
programmdatei gespeichert. Sie bendtigen fur die Durchflhrung 
folgende EDOS-Routinen: 


*DISC, *LBSS. 
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Source -Programmubersetzung unter EDOS 


Der IDS-Translator ist ein Multi-Overlay-Programm und fihrt 
folgende Hauptfunktionen aus: 


- Erstellung der Beschreibungstabellen fur die Datenbank. 


- Festlegung der korrekten Anruffolge fur die Executive-Routinen 
der [DS-Befehle (STORE, RETRIEVE, MODIFY usw.). 


Teile des Plattenspeichers werden vom [DS-Translator zur Zwischen- 
speicherung von Dateien wahrend der Translation verwendet. Der 

tatstichlich benétigte Speicherbereich richtet sich nach dem Umfang 
der umzuwandelnden IDS~Strukturen (mindestens 30 freie Zylinder). 


Die Source -Programmeingabe fUr den IDS-Translator muB auf 
Lochkarten erfolgen. In derselben Reihenfolge, in der die Source- 
Programmkarten vom Translator gelesen werden, werden sie auch 
Uber den Drucker aufgelistet. 


Ein IDS-Source-Programm kann auch in einer Source-Datei ge- 
speichert und gewartet werden. Siehe dazu .GAFUPD im 
EDOS-Handbuch. Das Source-Programm kann direkt auf der 
Systemplatte zur Translation bereit gestellt werden. 


Der Translator interpretiert *EJECT (ab Spalte 7) als Sprung 

auf volles Blatt. Die ‘EJECT-Karte wird nicht an den COBOL- 
Compiler weitergeleitet. “EJECT-Karten kénnen an beliebiger 

Stelle in das Source-Programm eingeflgt werden. Diese Méglichkeit 
wurde aus Griinden der Vereinfachung neu hinzugefligt, da der 
COBOL-Compiler Uber diese Vorrichtung nicht verflgte. “EJECT- 
Karten kénnen Uberall im Source-Programm stehen. 


Sdmtliche COBOL/APS -Befehle werden in einer Datei gespeichert, 
die als Eingabedatei fur den COBOL-Compiler dient. Diese Datei 
wird als "SOURCE-PROGS" bezeichnet und im 6-Bit -Mode 
angelegt. Satz- und Ketten-Befehle werden in der gleichen Datei 
gespeichert. Diese Source~Befehle haben festes Format, um die 
Anzahl der bendtigten Routinen zur Analyse der Parameter so 
gering wie méglich zu halten. 


oe —————————aEE 
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Es wird eine Analyse durchgefthrt und Tabellen zur Definition 
der Datenbank des kompilierten Programms werden erste! It. 

Diese Tabellen beschreiben die Sttze, GréBe der Daten- 

felder, Adresse der Arbeitsspeicherbereiche, Kettenverbindungen 
usw. Diese Informationen werden von den IDS "RUN-TIME" - 
Unterprogrammen ausgewertet, wenn auf die Datenbank zuge- 
griffen wird. 


Die Anzahl der méglichen Sdtze und Ketten innerhalb eines 
IDS-Programms ist unbeschrinkt. Jedoch fUhrt der Umfang der 
vom IDS-Translator generierten Definitionstabellen zu einer 
Beschriinkung hinsichtlich des Kernspeicherplatzes. 


Nach Festlegung der Datenbankstruktur werden die Befehle der 
PROCEDURE DIVISION gelesen und analysiert. Die Source- 
Programmbefehle werden in APS-Befehle Ubersetzt, die die 
entsprechende Anruffolge fir die IDS "RUN-TIME" -Unter~ 
programme enthalten. 


Ist das Programm richtig, d-h. ohne gréBere Fehler Ubersetzt 
worden, wird eine Meldung Uber den Drucker oder Schreibmaschine 
ausgegeben. Der IDS-Translator ruff den COBOL-Compiler an 

und Ubergibt an diesen die Steverung, damit der Compiler die 

vom IDS-Translator erstellte Source -Programmdatei Jiest. 

Die Arbeitsspeicherbereiche flr jeden der IDS-Satztypen werden 
yom COBOL-Compiler erstellt. Alle sonstigen zugehtrigen IDS- 
Befehle sind bereits vom IDS-Translator in APS-Befehle Ubersetzt 
worden, bevor COBOL angerufen wurde. 


——————— 
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5.3.1. IDS-Orderkarte 


Eine 1DS-Orderkarte mu8 jedem Source -Programmkartensatz 
vorausgehen. Es ist zu beachten, da diese Karte sich von der 
fUr die COBOL-Kompilier ung erforderlichen Befehlskarte nur 
dadurch unterscheidet, da8 anstelle von COBOL jetzt IDS 
steht. Wenn die Verarbeitung durch den IDS-Translator beendet 
ist, wird der Inhalt der Befehlskarte an den COBOL-Compiler 
Ubertragen, wobei der Translator zuvor IDS durch COBOL 
ersetzt hat. 


sIDS — ID=id_,PN=pn [,FN=fn_][, OD=od] [,0L] [,08-os] [0m] 


L,1W-w] [,sP-sp] [,ov-av] [51] [Ne] ¢€ 


Reicht der Platz in der Orderkarte nicht aus, kinnen die Parameter 
in einer Detailkarte fortgesetzt werden (ab EDOS 22): 


PIDS) 2x20 [pron igeeeed 


Der Anruf des IDS-Translators mu8 ab Version EDOS 22 mit einer 
BEND-Karte abgeschlossen werden. 


Hinweis: 


Alle Angaben der .IDS-Karte beziehen sich auf den nachfolgend auto- 
matisch angerufenen COBOL-Compiler (ausgenommen SI)! 


Anmerkung: 


Der Translator wurde getndert, mdglich ist ab Version 23 auch eine € 
Source-Eingabe direkt von der Systemplatte. Das IDS-Source muB 

durch die Order .GAFUPD bereitgestel!t werden. Durch den 

Parameter NL kann das Source -Listing des COBOL -Compilers 

unterdrlckt werden. Damit wird auch das Objekt -Listing unterdruckt. 

Diese Méglichkeit sollte nur bef einwandfreien Programmen benutzt 

werden, da in diesem Fall alle Fehlermeldungen die Seitenzah! Null 


zugewiesen bekommen. 


G~-100 — so. 
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Feldname 
od. Ifd. 


Schlusse! 


G-100 


Bedeutung Bemerkungen 
des Feldes 


enthalt das 
Sourceprogramm 


enthalt den Namen 
des Source- 
programms 


Name der Datei, 
welche das 
Sourceprogramm 
enthalt. 


enthdlt das 
Objekiprogramm 


Wihrend der 
Kompilation des 
Sourceprogramms 
wird eine Liste 
ausgegeben. 


numerisch | START-Adresse, ab 


der das Objekt - 
programm beginnt. 


Kompilierung im 
Debugging -Modus 


Yoder N | Y= CTW 101 


N= keine CTW 


Y oder N | Y= Spooling-Mode 


10 fur DSU 110 
57 fur DSU 157 
60 fur DSU 160 
62 fur DSU 162 
50 fur DSU 150 


Source-Eingabe 


keine Source-Liste 


durchider COBOL- 


Compiler 


Bei Eingabe von 
Magnet piatte an- 
geben. 


Bei Eingabe von 
Magnetplatte 
angeben 


Wenn nicht ange- 
geben, wird 
SOURCE~PROGS 


angenommen . 


Ausgabeplatte 


Drucken der 
Objektliste 


Normal 04000 
oder 05000, wenn 
Magnetbiinder 
benutzt werden. 


Nor fur Test- 
zwecke 


Display auf 

CTW 101 
Obligatorisch, 
wenn SP=Y ange- 
geben wird. 


Wenn das Programm 
im Spooling be- 
nutzt werden soll. 


Bei Benutzung einer 
DSU 157 ist DV=57 
obligatorisch. Ferner 
muB eine WD vor- 
handen sein. 


Nur von der SD (0} 


Nur bei einwandfreien 
Programmen anwenden. 
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Fehlermeldungen, die sich auf die Orderkarte beziehen: 


END CARD NOT FOUND 
Die END-Karte fehlt. 


INCORRECT VALUE IN DV OPTION 


Im Parameter DV wurde ein falscher Wert angegeben. 


*"DSU157 : VALUE DV=57 NOT FOUND ** 

Es wird mit der DSUI57 umgewandelt, aber die Parameterangabe 
DV=57 fehlt. 

*** DV=57 NOT ACCEPTED ** 


Es wird nicht mit einer DSU157 kompiliert, aber der Perameter 
DV=57 wurde angegeben. 


Fehlermeldungen, die zusiitzlich eingefUgt wurden: 


WORK DISC NOT FOUND 

Durch den Parameter S| ist eine Translation mit WD (Arbeitsplatte) 
erforderlich. Die Angabe fehlt in der .INT=-Karte. 

ERROR FROM SI/NL 

Die Parameter SI/NL enthalten falsche Werte. 


INSUFFICIENT DISC SPACE TO TRANSLATE 

Auf der SD oder WD betriigt die Zahl der freien Zylinder weniger als 

15 oder es ist Uberhaupt kein freier Zylinder vorhanden. 

IDENTIFICATION MISSING OR INVALID 

Die Karte IDENTIFICATION DIVISION fehlt oder die Warter 
IDENTIFICATION oder DIVISION sind falsch geschrieben. 

PROGRAM-ID MISSING OR INVALID 

Die Karte PROGRAM -ID fehlt oder ist falsch geschrieben. Oder die 

Karte liegt nicht an zweiter Stelle im Programm. 

NAME IN PROGRAM-ID (NNNNNNNN) NOT EQUAL TO ORDER-CARD 


In der Order-Karte .IDS wurde ein anderer Programmname angegeben als in 


der Karte PROGRAM-ID. 
Nach allen oben angegebenen Fehlermeldungen endet das Programm mit 


dem Makrobefehl ABORT. 
a] 
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Fehlerme!dungen und Korrekturmafinahmen 


Wahrend der Ubersetzung kénnen Fehler auftreten, von denen 

nur zwei Fehler so schwerwiegend sind, daf bei ihrem Auftreten 

der Translator auf einen Halt Jduft. Bet allen anderen Fehler- 
bedingungen ltuft die Verarbeitung bis zum Ende des Source- 

Programms weiter. Es ist daher wichtig, da der Programmierer 

die Fehler kennt, die zu einem Abbruch der Kompilierung fuhren 

kénnen. Danach milssen die Korrekturen am Source -Programm durchgefuhrt 
werden, 


Bei den ausgegebenen Fehlermeldungen wird zwischen zwei Arten 
unterschieden. Die erste Fehlerart wird durch einen 2-ste/ligen 
Fehlercode, die zweite durch alphanumerische Meldung angezeigt. 


00  Unbekanntes Verb im IDS-Satz . 


Der Translator sucht in Vorwartsrichtung, bis er das niichste Verb 
trifft, und nimmt von dort ab die normale Verarbeitung wieder auf. 
Das nicht bekannte Verb und alle Zeichen zwischen diesem und 
dem ndchsten bekannten Verb werden Ubergangen. 


01 SELECT IDS Anweisung fehit. 


Der Translator sucht weiter, bis er auf die DATA DIVISION triffr. 
Alle Zeichen zwischen der Stelle, an der die SELECT -Anweisung 
hutte stehen mussen, und dem Beginn der DATA DIVISION werden 
tbergangen. 


02 DATA DIVISION Anweisung fehlt. 


Der Translator sucht weiter und Ubergeht dabei alle Zeichen, bis 


er auf die PROCEDURE DIVISION trifft. 
03 Auf DATA folgt nicht DIVISION. 


Der Translator nimmt an, da er die DATA DIVISION gefunden 
hat und setzt die Verarbeitung fort. 


04 ~— Auf IDS folgt nicht SECTION. 


Der Translator nimmt an, dafB er die IDS SECTION angetroffen 
hat und setzt die Verarbeitung fort. 


05 Auf IDS SECTION folgt kein MD-Eintrag. 


Der Translator sucht weiter und Ubergeht dabei alle Zeichen, bis 
er den MD-Eintrag findet, 


06 Der MD-Dateiname stimmt nicht mit der SELECT-Anweisung Uberein. 


Der Translator setzt die Verarbeitung fort. 


SR 
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Eintrag Stufe 0] fehlt nach dem MD-Eintrag. 


Der Translator sucht weiter und Ubergeht alle Zeichen, bis 
der nachste Ot-Eintrag gefunden wird. 


Die Angabe PAGE CONTAINS spezifiziert einen Wert, der 
entweder kein Vielfaches von 288 oder gréRer als 4320 ist. 


Der Translator fuhrt die Verarbeitung mit dem angegebenen 
Wert fort. 


Die Angaben PAGE CONTAINS und/oder FILE CONTAINS fehlen. 


Der Translator fuhrt die Verarbeitung fort. Die PAGE- und/oder 
FILE CONTAINS-Zéhler werden auf Null gesetzt. 


Der fur TYPE angegebene Wert ist gréBer als 254. 


Der Translator fuhrt die Verarbeitung mit dem angegebenen 
Wert fort. 


Der fir IDENTIFIER RANGE angegebene Wert ist gréBer als der 
fir FILE CONTAINS spezifizierte Wert. 


Der Translator fuhrt die Verarbeitung mit dem angegebenen 
Wert fort. 


Unbekanntes Zeichen in der PICTURE-Angabe. 


Der Translator sucht in Vorwartsrichtung weiter und Ubergeht 
dabei alle Zeichen, bis der Punkt angetroffen wird, der die 
fd. Anweisung beendet. 


Formatfehler bei der PICTURE-Angabe. 


Der Translator sucht in Vorwértsrichtung weiter und Ubergeht 
dabei alle Zeichen, bis er auf den die Ifd. Anweisung ab- 
schlieBenden Punkt trifft. 


IDS-Feld- oder Satzname enthalt mehr als 5 Zeichen. 


Der Translator akzeptiert die ersten 5 Zeichen als den Feld- 
oder Satznamen. Alle nachfolgenden Zeichen bis zum ersten 
Leerzeichen werden Ubergangen. 


LEVEL 98 ist weder eine Master- noch eine Detailbeschreibung . 
Der Satz wird nicht gespeichert. 
TYPE fehlt in der CHAIN-ORDER SORTED WITHIN - Angabe. 


Der Translator Ubergeht die Ifd. Anweisung und setzt die Ver- 
arbeitung mit der néchsten Anweisung fort. 


a 
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17 


18 


9 


20 
21 


22 


23 


24 


25 


26 


27 


28 


29 


30 
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MASTER/PRIOR fehlt in einer LINKED TO- Angabe, 
und/oder in einer DUPLICATES-Angabe fehlt ein Wort. 


Der Translator Ubergeht die Ifd. Anweisung und setzt die 
Verarbeitung mit der ndchsten Anweisung fort. 


Mehr als 10 zultssige Eintragungen in der Steuerdefinitionstabelle. 


Nur die ersten 10 Definitionen werden akzeptiert, alle weiteren 
werden Ubergangen. 


IDS-Befehlsaufbau ist falsch und/oder eine IF ERROR-Angabe fehlt. 


Der Translator sucht in Vorwdrtsrichtung weiter und Ubergeht 
alle Zeichen bis zum Antreffen des nuchsten Verbs. 


( Dieser Fehlercode wird nicht verwendet. ) 
Keine Kettenangabe bei INSERT. 


Der Translator Ubergeht diese Anweisung und setzt die Verar- 
beitung mit der ndchsten Anweisung fort. 


Formatfehler in einem 98-Eintrag. 
Der Translator setzt die Verarbeitung fort. 
MODIFY-Anweisung umfaBt mehr als 20 Felder. 


Der Translator akzeptiert nur die ersten 20 Felder und Ubergeht 
alle weiteren Felder. 


RETRIEVAL VIA FIELD/CHAIN fehlt oder ist nicht korrekt. 

Der Translator setzt die Verarbeitung fort. 

98-Master-Satz ohne CHAIN -ORDER-Angabe. 

Der Translator fUhrt die Verarbeitung fort. 

RANGE bei DESCENDING verwendet. 

Der Translator setat die Verarbeitung fort. 

In den 01 -Eintragungen wurde PLACE NEAR CHAIN nicht definiert. 
Der Translator fuhrt die Verarbeitung fort. 

LEVEL 01 enthalt doppelte Angaben. 

Der Translator ignoriert die doppelte(n) Angabe(n). 


Bei LEVEL 01 fehlt eine erforderliche Angabe (TYPE, RETRIEVAL, 
IDENTIFIER-RANGE ). . 


Der Translator setzt die Verarbeitung fort. 
INTERVAL ist Null und/oder kann nicht {anger als 8 Stellen sein. 
Der Translator setzt INTERVAL auf Null. 
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33 


35 


36 


37 


38 


39 


40 
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Der in FILE CONTAINS angegebene Wert ist grofer als 
16.777.215 und/oder langer als 8 Zeichen. 


FILE CONTAINS bleibt Null oder wird bis auf die ersten 8 
Zeichen gekirzt. 


Formatfehler bei Stufe 98. 
Der Translator fuhrt die Verarbeitung fort . 
Formatfehler bei Stufe 02. 


Der Translator sucht in Vorwartsrichtung weiter und Ubergeht 
dabei alle Zeichen, bis er auf den abschlieBenden Punkt trifft. 


IF RECORD NAME-Angabe enthalt einen Satznamen, der nicht 
in der DATA DIVISION definiert ist. 


Der Translator setzt die Verarbeitung fort. € 


Bei Stufe 98 CALC CHAIN DETAIL, jedoch nicht RETRIEVAL 
VIA CALC CHAIN angegeben. 


Der Translator setzt die Verarbeitung fort . 
ENTER-Verb wurde auRerhalb der PROCEDURE DIVISION angetroffen. 


Der Translator lauft auf einen Halt. Es wird eine Nachricht aus— 
gedruckt, die besagt, dali eine Kompilation nicht moglich ist. 


Fehler bei Stufe 98. 


MD/DD (Master-Description/Detail-Description) wird vom 
Translator nicht gespeichert. Die Verarbeitung léuft weiter. 


ENVIRONMENT DIVISION -Angabe und/oder CONFIGURATION 
SECTION -Angabe fehlt . 


Der Translator lauft auf einen Halt. Es wird eine Nachricht aus- € 
gedruckt, die besagt, da® eine Kompilation unmiglich ist. 


TYPE fehlt bei Stufe Ol. 
Der Translator fuhrt die Verarbe itung fort. 


Primirfeld fir einen Primiérsatz hat eine falsche PICTURE- oder 
SIZE-Angabe. 


Der Translator setzt die Verarbeitung fort. 

INTERVAL zusammen mit PLACE NEAR nicht zulissig. 
Der Translator setzt die Verarbeitung fort. 

Punkt hinter einer ENTER IDS-Anweisung fehlt. 


Der Translator nimmt an, da® der Punkt nur vergessen wurde 
und setzt die Verarbeitung fort. 
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43 Paragraphenname ist auf derselben Karte wie ENTER IDS. 
Die Anweisung wird Ubergangen und die Verarbeitung fortgesetzt. 


44 INTERVAL-Angabe zusammen mit RETRIEVAL VIA CALC CHAIN 
nicht zuldssig. 


Die Angabe INTERVAL wird ignoriert und die Verarbeitung fortgesetzt. 


45 FILE-CONTROL-Karte fehlt oder ist falsch. 


Alle Anweisungen vor diesem Fehler werden Ubergangen. 
Die FILE-CONTROL-Karte mu8 eingefUgt oder korrigiert werden. 


Fehlernachrichten der vom Translator erkannten Fehler: 

** MISSING DEFINITION FOR (Master-Name)/(Satzname) 
(Feldname)/(Satzname) 

Fur die angegebenen Satznamen werden Definitionen benotigt . 

**" 98 LEVEL FORMAT ERROR ON (Mastername)/{Satzname) 

(Detailname)/(Satzname) 

Widerspruch bei den Master- und Detail-Definitionen fur die 

CHAIN -ORDER-Angabe. 

** DUPLICATE MD/DD FOR RD (Satzname) 

Doppelte MD/DD Definition. (Master-Description/Detail-Description) 


** TRANSLATION IMPOSSIBLE. FATAL IDS ERRORS 


Fehlerbedingung 36 oder 38 (siehe o.) wurde angetroffen. Die festge- 
stellten Fehler sind zu korrigieren, bevor eine erneute Kompilation 
des Source-Programms versucht wird. 


LL 
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5.4. COBOL/IDS ~Programmkompilierung 


Nach erfolgreicher Beendigung der Translation kann das Source 

vom Compiler wie ein normales Source -Programm verarbeitet werden. 
Der einzige Bereich, in dem eine spezielle Uberprufung erforderlich 
ist, sind die Paragraphennamen in GO TO-Anweisungen der 
PROCEDURE DIVISION des Source-Programms, da diese Paragraphen- 
namen vom Translator ungeprUft an den COBOL ~Compiler Uber- 

geben werden. 


5.5. Fehlerméglichkeiten des Objektprogramms € 


Wahrend der Ausfthrung eines IDS-Objektprogramms kénnen zwe i 
Arten von Fehlerbedingungen auftreten. 


Zur ersten Kategorie gehéren die datenabhungigen Fehler, denen 
durch die verfahrensorientierte Logik des Programms vorgebeugt 
werden muB. 


Der zweite Fehlertyp resultiert aus inkorrekter Verwendung einer 
1DS-Funktion oder ungUItiger Definition der Datei. 


Fehler der ersten Kategorie kénnen auf dem Programmweg korrigiert 

werden, wihrend Fehler des zweiten Typs eine Berichtigung im 

Source Programm erfordern, das zu diesem Zweck neu kompiliert 

werden muB. € 
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Vom Programm her korrigierbare Fehler 


Programmseitig behebbare Fehler werden durch eine Hexadezimal - 
zahl (1 Byte) in einem als ERROR-REFERENCE bezeichneten Bereich 
gekennzeichnet. Die Source -Programmanweisungen IF ERROR GO TO 
mUssen Verzweigungsadressen zu Routinen oder Anweisungen ent- 
halten, die eine Prufung des ERROR-REFERENCE-Bereichs bewirken 
und die BerichtigungsmaBnahmen durchfthren, die von dem im 
ERROR-REFERENCE-Bereich vorgefundenen Fehlercode angezeigt 
werden. Vor Beginn der ProgrammausfUhrung ist der ERROR- 
REFERENCE -Bereich auf 00/16) zu setzen, ferner nach jedem Fehler. 


Fehlercode 
31 
32 


33 


34 


35 


36 


37 


38 


39 
40 
4l 


42 
43 


Bedeutung 
Keine doppelten Sitze erlaubt. 
MASTER-Satz zuvor nicht mit RETRIEVE aufgegriffen. 


Satz kann nicht aufgegriffen (RETRIEVE) werden, 
da geléscht (DELETE). 


Es wurde versucht, mit RETRIEVE einen Satz auf- 
zugreifen, der in dem von den Steverfeldern 
gekennzeichneten Datenbereich nicht vorhanden ist. 


Es wurde versuc ht, mit RETRIEVE den fd. Satz 
eines Satztyps aufzugreifen, der zuvor nicht mit 
RETRIEVE aufgegriffen oder der mit DELETE ge- 
ldscht wurde. 


DIRECT REFERENCE ist Null. 


Es wurde versucht, einen mit DELETE geléschten 
Satz durch RETRIEVE DIRECT aufzugreifen. 


RECORD IDENTIFIER des mit RETRIEVE aufzugreifenden 
Satzes ist nicht im IDENTIFIER RANGE. 


RECORD IDENTIFIER auBerhalb der Systemgrenzen. 


Satz ist nicht mehr linger Bestandteil einer Kette. 


Es wurde versucht den Master einer Kette zu léschen, 
die noch Details enthalt. 


Es wurde versucht, einen Page -Header zu léschen. 


Es wurde versucht, einen Satz zu einem Zeitpunkt zu 
speichern, zu dem kein Speicherplatz zur VerfUgung stand. 


rr 
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Nicht vom Programm her korrigierbare Fehler 


Alle Fehler, die nicht vom Programm her korrigierbar sind, werden 
durch den folgenden Ausdruck gekennzeichnet: 


*“PROGRAM ABORTED BY IDS. REASON CODE xx. * 


wobei xx eine Dezimalzahl darstellt. 


Fehlercode 
01 


02 


03 


14 


Bedeutung 
Programm wurde nicht durch OPEN fur IDS eréffnet. 


Ausma8 der Anwenderdatei Uberschreitet die 
Systemdateigrenzen. 


Programm wurde bereits durch OPEN erdffnet und 
seither nicht durch CLOSE abgeschlossen. 


Dateinamen stimmen nicht Uberein. 
Ungultiger Funktionscode. 
Fehler in der [DS-Parameterkarte. 


Pufferbereich zu klein. 


Es wurde versucht einen Satz primur zu lesen (RETRIEVE 
Satzname), der nicht als solcher definiert wurde. 


Nicht verwendet. 


Keine Detail -Definition fur einen kalkulierten 
oder Sekundtir-Satz. 


Der REFERENCE CODE ist Null. 


Ein Element einer Detail-Kette befindet sich nicht 
in der entsprechenden Kette. 


Keine Satzdefinition fur den zu verarbeitenden Satz- 
typ vorhanden. 


Es wurde versucht, den Master einer Kette (HEAD) 
anzusprechen, fUr die das Kettenfeld NEXT Null enthalt. 


EE and 
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1S 


16 


17 


18 


19 


20 
21 
22 


23 


24 


25 


26 


28 


29 
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Bedeutung 


Das Programm wurde nicht mit OPEN fur die 
Fortschreibung erdffnet. 


Das zu tindernde Feld ist entweder nicht definiert, 
oder es wurde versucht, ein Primir-Feld zu dndern. 


Ein REMOVE wurde fur einen Satz gegeben, der nicht 
als Detail in der Kette definiert ist. 


Es wurde versucht, den nichsten Satz in einer Kette 
aufzugreifen, flr den die Kettenadresse auf Null 
gesetzt ist. 


Es wurde eine Steuver-Definition mit ungUltigem 
Stevercode angetroffen. 


Steverdatenfeld angegeben, aber nicht definiert.. 
Der RECORD IDENTIFIER ist Null. 
Unzuldssige CHAIN-ORDER angetroffen. 


Es wurde versucht, einen Satz zu dndern, jedoch nicht 
im Fortschreibungsmodus. 


Es wurde versucht, einen Primir-Satz zu speichern, 
ohne daB ein Primér-Feld definiert wurde. 


Es wurde versucht, einen Satz, der ein Detail in 
einer oder mehreren Ketten ist, ohne Angabe einer 
Speicherkette zu speichern. 


Der Satztyp eines aufgegriffenen Satzes wurde fur die 
spezifizierte Kette nicht definiert. 


Es wurde versucht, einen Satz zu entketten, obwohl 
die nichste Eintragung der Kettentabelle Null war. 


Es wurde versucht, einen Satz zu einem Zeitpunkt zu 
ketten, als die nachste Eintragung der Kettentabelle 
Null war. 


Eine der Definitionstabellen ist falsch. 
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Master ist nicht SELECT CURRENT. 


Benutzer~Adressenumrechnungsroutine angefordert, 
aber nicht geliefert. 


FIRST-REFERENCE gréGer als LAST-REFERENCE. 
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Service -Programme_ und Subroutinen 


IDS -Journaldatei 


Unter einer Journaldatei verstehen wir die Aufzeichnung der Bewegungen 
aller Pages einer IDS-Datei Uber einen bestimmten Zeitraum. 


Die Journaldatei ‘ist eng verbunden mit der Wiederanlaufroutine, wo 
zeitweise der Programmlauf unterbrochen und spiter am Unter- 
brechungspunkt wieder aufgenommen werden mui. 


Allgemeine Bemerkungen 


Da die Journaldatei alle Pages der Datei, die wahrend einer bestimmten 
Arbeit-berUhrt wurden, enthalten mu8, erfolgt die Aufzeichnung der 
verschiedenen Pages automatisch beim Programmlauf. 

Die Aufzeichnung erfolgt auf Magnetbindern (9-Spur-Modus) auf der 
Station 1. 


Arbeitsweise 
Es gibt zwei verschiedene Formate der Journaldatei: 


- BEFORE -Pages 


diese Journaldatei enthalt nur die gelesenen Pages, die vor jeglicher 
Anderung aufgezeichnet werden. Die Pages werden nur beim ersten 
Lesen aufgezeichnet, so daB in der Journaldatei nie eine Page 
doppelt erscheint. 


- BEF ORE~ und AFTER-Pages 


diese Journaldatei enthalt alle BEFORE -Pages zuzUglich der Pages, 
die nach einer Anderung auf die Platte zurUckgeschrieben wurden 
(AFTER =Pages genannt). Bei diesem Format kann jede Page beliebig 
oft auf Band erscheinen. 


Das erste oben erwuhnte Format, also nur die BEFORE-Pages, ist 
keine echte Journaldatei, da sein Ziel ein Wiederanlauf mit sehr 
geringer Laufzeit aber einer bestimmten Kernspeicherbelegung ist. 


Die Journaldatei, die nur die BEFORE-Pages enthilt, wird mit Hilfe 
einer Kernspeichertabelle zusammengestellt (generiert durch die 
Subroutine YQTAB). Diese Tabelle besteht aus n Feldern fUr die 
n Plattenstapel, die die IDS~Datei belegt, und aus einem Bereich mit 
soviel Bits, wie die gesamte Datei Pages umfalt (1 Bit = ] Page). Jedes 
der n Felder enthilt die gepackte Plattenadresse, bei der die reservierte 
Zone fur die Datei beginnt, und die absolute Adresse der relativen 
Bitzone in der Tabelle. 
2 TER 
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Jedesmal, wenn eine Page von der Platte gelesen wird, untersucht 
die Subroutine YQXPG das der gelesenen Page entsprechende Bit. 


Ist das Bit = 1, ist die Page bereits aufgezeichnet worden, ist das 
Bit = 0, ist die Page noch nicht aufgezeichnet und deshalb wird die 
Subroutine YQJPRE gestartet. Diese schreibt die Page auf Band und 
setzt das entsprechende Bit auf "1". 


Das Journatband mit BEFORE- und AFTER ~Pages ist ein echtes 

Journal. Jedesmal, wenn eine Page in den Kernspeicher gelesen, 

oder nach einer Anderung auf die Platte zuriickgeschrieben wird, 
werden die Subrautinen, die die Pages auf Band schreiben, automatisch 


ausgefuhrt. 


Dieses Journalband ist auch fur Wiederanlaufverfahren geeignet. 6 
Geringe Kernspeicherbelegung und Laufzeiten, die nur wenig Uber 

den Zeiten der BEFORE-Pages liegen, charakterisieren diesen Typ 

Journalband. 


een 
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Anweisungen fUr die Benutzung 


Damit die Subroutinen, die die Journaldatei erstellen, |aufen kénnen, 
mu8 das * TAPE-Programm im Kernspeicher stehen, 

Die Startadresse fUr das Benutzerprogramm muB8 der hichsten Adresse 
fur gemischte Systeme entsprechen, 4950. 

Wenn das COBOL/IDS -Programm keine Bander bendtigt, ist es 
notwendig, eine Dummy-Datei auf Station 1 zu definieren. Dadurch 
weilS der Compiler, das das *TAPE benutzt werden mu, da das 


Programm zumindest ein Band bearbeiten kann (sogar im nicht- 
standard Mode). 


Wenn auf der anderen Seite das COBOL/IDS-Programm schon Binder 
benutzt, braucht keine Dummy -Datei deklariert zu werden, aber es 
ist zu bedenken, da8 die Station] fir das Journal frei bleiben muB. 
Um eine Dummy-Datei zu definieren, muB in FILE-CONTROL ein 
SELECT fur Band erscheinen, der dieses Band der Station 1 zuordnet, 
und in der FILE SECTION muB8 die entsprechende Datei unter FD 
erscheinen; dabei ist es unwichtig, wieviele Sdtze definiert werden, 
oder welches Satzformat bei DATA RECORD beschrieben wird. 


Initialisierungsregeln fur das Band auf Station 1 


Folgende Einschrénkungen und Bedingungen mussen fur das Journal - 
band beachtet werden: 

- Die Datei ist nur auf einer Spule, Spulenwechsel ist nicht erlaubt. 
- Ungeblockte Organisation (UN) mit Blocknummer. 

- Das Band ist auf Station 1 und wird im 9-Spur-Modus beschrieben. 


- Kennsatzschreibung mu8 standardmi8ig entsprechend den 
EDOS-Normen erfolgen. 


- Der Dateiname (12 Zeichen) muB JIDS~Programmname sein, wobei 
der Programmname mit der PROGRAM-ID des entsprechenden Programms 
Ubereinstimmen mu8. 


- Das Erste!lungsdatum mu8 kleiner oder gleich dem Tagesdatum 
von .INT der Initialisierung sein. 


- Das Band muf mit 800 bpi beschrieben werden, wenn die Station 
nicht phasenmoduliert (PM) ist, oder phasenmoduliert mit NRZ-Option. 


Die Kennsatzschreibung mul entsprechend dem EDOS-Standard mit der 
Order .TLW vorgenommen werden. 


-Wenn das Feld DT (optional) in .TLW ausgeft IIt ist, mu®8 das spezifizierte 
Datum kleiner/gleich dem Datum von .INT sein. 
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Beispiel fUr das Format von .TLW zur Kennsatzschreibung von 
9-Spur -Baindern (nicht PM) mit 800 bpi oder PM (mit NRZ) mit 
1600 bpi. Das Programm, das mit Jornal gefahren werden soll, 
heif®t TEST-O. 


-TLW,1,P,L,9,F,JIDS10, JOURNAL-IDS%, JIDSTEST—O, 1,1 


Journal mit BEFORE- und AFTER -Pages 


Wenn der Benutzer das Journalband mit allen Pages vor der Anderung 
(BEFORE) und allen Pages nach der Anderung (AFTER) erstellen will, 
missen folgende Befehle am Anfang des Programms, unmittelbar hinter 
dem OPEN fur die IDS-Datei, eingefUgt werden: 


ENTER APS. 
SUB YQJOP 
DC CL2°01" 


ENTER COBOL. 


Die AusfUhrung dieser Prozedur stellt alle flr die Software nétigen 
Parameter bereit, damit wahrend der Verarbeitung die entsprechenden 
Subroutinen fUr die Aufzeichnung der Pages abgerufen werden und 
laufen kénnen. Dieselbe Prozedur fUhrt auch alle Prufoperationen 
durch, wie sie beim OPEN einer Banddatei ablaufen. AnschlieBend 
erfolgt die Aufzeichnung der gelesenen und geschriebenen Pages 
wahrend des Programmlaufs automatisch. 


Journal mit BEF ORE -Pages 


Wenn der Benutzer nur die gelesenen, d.h. die BEFORE-Pages in das 
Journal aufnehmen will, mu ein Kernspeicherbereich reserviert werden, 
der die Tabelle enthalten soll, die Ubeprift, welche Pages aufge- 
zeichnet werden mUssen und welche nicht. In der WORKING STORAGE 
muB ein Feld mit irgendeinem Namen, hier QTBLE, angelegt werden. 
Die GréBe dieses Feldes berechnet sich wie folgt: 


ataie = 2Cx100 45 Nvid 
Oxo 
C= Gesamtzahl Zylinder reserviert fur die ganze Datei 
S$ = Anzah! Sektoren pro Page 
NV = Anzchl Plattenstapel fur die Datei. 
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Beim RESTART der IDS~Datei (wobei ein Teil der Tabelle auf Null 
geldscht wird) ist es ratsam, das Feld folgendermaBen zu definieren: 


01 QTBLE. 
02 QTBLECOST PICTURE X(NN) VALUE 0. 
02 QTBLEBIT PICTURE X(MM) VALUE 0. 


wobej die Langen sind: 


QTBLECOST= 5NV+4= NN 
QTBLEBIT = es = MM 
x5 


Wenn die Linge von QTBLEBIT, also MM, gleich oder gréBer 
256 Zeichen ist, muB dieser Bereich in mehrere Felder so aufge- 
splittet werden, dai jedes Feld kleiner als 256 Zeichen ist. 


Beispiel, wenn MM 300 Zeichen mal NN 34 Zeichen grof ist: 


01 QTBLE. 
02 QTBLECOST PICTURE X(34) VALUE 0. 
02 QTBLEBIT! PICTURE X(150) = VALUE 0. 
02 QTBELBIT2 PICTURE X(150) = VALUE 0. 


(VALUE 0 kann auch weggelassen werden.) 


Folgende Befehle mUssen am Anfang des Programms, direkt hinter 
dem OPEN fur die IDS-Datei, eingeflgt werden: 


ENTER APS. 
xc QTBLEBIT, QTBELCOST 
SUB YQTAB 


SUB YQJOP 

bec CL2°02* 

DC AL2(QTBLE) 
ENTER COBOL. 
In DC AL2 muB der Name der flr die Tabelle reservierten Zone 
(definiert auf Stufe 01 in der WORKING-STORAGE SECTION) 


angegeben werden. 


G-100 a 


Ref. -Nr.: 32.30.206 D 
Juli 1973 


6.1.4. 


-124 - 


Der erste Befehl ldscht alle Bits der Tabelle auf Null. 

Wenn das Feld langer als 256 Stellen ist und aufgeteilt wurde, 
muB flr jedes Tei!-Feld ein XC-Befehl kodiert werden. Unter 

Bezugnahme auf das vorhergehende Beispiel mussen folgende 

Befehle kodiert werden: 


ENTER APS. 


XC 
XC 


QTBLEBIT], QTBLEBITI 
QTBLEBIT2, QTBLEBIT2 


ENTER COBOL. 


Werden diese Befehle nach dem IDS-OPEN eingefigt, kann die 
YQTAB-Routine die Kernspeichertabelle, die Parameter fur die 
Software und die OPEN-Routine fur das Magnetband kompilieren; 
auch fUr den zweiten Typ der Journaldatei. 


Wahrend der weiteren Bearbeitung werden nur die BEFORE-Pages, 
wie vorher angegeben, aufgezeichnet. 

(Bei der Umwandlung mu8 das UP YDEBIN auf der Systemplatte 
enthalten sein.) 


Programmierhinweise 


Wenn die Bearbeitung beendet ist, enthalt das Band auf Station 1 
die Journaldatei in einem in Abb. 36 aufgezeichneten Format. 


Wie daraus zu ersehen ist, ist diese Datei mit einer Bandmarke 
nicht-standardm&Big abgeschlossen. Dies ist fUr den Wiederanlauf 


notwendig. 


Das erste Zeichen der BEFORE-Page hat den Wert 4.16) »wahrend 


das erste Zeichen der AFTER-Page den Wert 6) ha 


Speicherbelegung und UP*s, um eine Journaldatei nur mit 
BEFORE -Pages zu erstellen. 


Die UP*s fur diesen Journaltyp belegen 1360 Bytes. Folgende UP*s 
werden bendtigt: 


- YQOPEN: 
- YQJPRE: 
- YQJSREG: 
~ YQTAB: 

- YQWPG: 


Dateierdffnung 

Block erstellen 

Block schreiben 

Aufbereiten der Tabelle im Kernspeicher. 
Prifen der aufzuzeichnenden Pages. 
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Speicherbelegung und UP*s fUr eine Journaldatei mit BEFORE- 
und AFTER -Pages 


Die UP’s fur diesen Dateityp belegen 910 Bytes im Kernspeicher. 
Folgende UP"s werden angerufen: 


~ YQOPEN: Dateierdffnung 

~ YQJIPRE: Block erstellen 

- YQJREG: Block schreiben 

- YQWPG: Prufen der aufzuzeichnenden Pages 
Fehlerhaltefalle 


Es handelt sich um Standard -Haltefalle aus den EIOS. 


O1EE Haltefall bei der Datei- Richtiges Band auflegen. 
erdffnung: Programm neu starten. 


- der erste Block beginnt 
nicht mit VOLI. 

- der zweite Block beginnt 
nicht mit HDR 1. 


Falscher Dateiname oder Richtiges Band auflegen, 
falsches Verfalldatum. Programm neu starten. 


Keine Bandmarke nach Richtiges Band auflegen, 
dem HDR 1. ney starten. 


Es kinnen weitere Haltefille auftreten, die im APS-Handbuch 
dokumentiert sind. 


on 
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T Letzter T 
Abb. 36: Aufbau der Journaldatei 

IDS Page =! ‘| 40! 
Blocknummer Plattenadresse | | 41 IDS Page 
Abb. 37: Journaldatei - Blockaufbau 

G-100 SS 
Ref. -Nr.: 32.30.206 D 
Juli 1973 


-197 = 


6.1.6. Unterprogramme 
6.1.6.1. YQJOP OPEN-Routine fur das Journalband 


Dieses UP mu8 durch das Benutzerprogramm angerufen werden. 
Es kompiliert alle fr die Bearbeitung derPages notwendigen 
Parameter, prUft die Kennstitze und fUhrt die Einstellung des 
Bandes durch. 


Das Magnetband muB8 auf Station 1 liegen und mit einem Standard~ 
Kennsatz versehen sein. Das UP belegt 360 Bytes. Die Fehler- 
miglichkeiten wurden bereits angegeben. 


Weitere UP’s werden nicht angerufen. Nach Ablauf dieses UP*s 
kénnen die UP’s YQJPRE zur Erstellung des Blocks und 

YQJREG zur Aufzeichnung des Blocks auf Magnetband angerufen 
werden. 


6.1.6.2. YQTAB Aufbereiten der Pruftabelle im Kernspeicher 


Das Benutzerprogramm mu8 dieses UP anrufen, wenn nur BEFORE-Pages 
aufzuzeichnen sind. Es bereitet im Kemspeicher eine Tabelle auf, 
Uber die die aufgezeichneten Pages festgestellt werden kénnen. 


Das UP belegt 450 Bytes. 
Es gibt keine Fehlerfalle. 


Ein anderes UP wird nicht angerufen. Nach dem Ablauf des UP*s 
kann das UP YQWPG angerufen werden, durch das die aufzu- 
zeichnenden Page-Nummern mit der Tabelle verglichen werden. 
Wenn die Page aufzuzeichnen ist, werden die UP’s YQJPRE und 
YQJREG gestartet. 


G-100 RD 
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Wiederanlauf einer IDS-Datei 


Tritt bei der Bearbeitung einer IDS-Datei eine Stérung auf 
(intern oder extern bedingt), mu8 eine Wiederanlaufmdglichkeit 
ab dem Unterbrechungspunkt vorhanden sein. 


Dazu wird die Journaldatei bendtigt. 


Allgemeine Bemerkungen 


Das Verfahren zur Aufzeichnung eines CHECKPOINTS auf einer 
IDS-Datei entspricht dem Standard-Verfahren im EDOS; d.h. es 
wird das UP YDCK benutzt. (Siehe Makrobefehl CHKP im 
APS-Handbuch.) 

Dieses UP schreibt den Status des Kernspeichers zu bestimmten 
Zeitpunkten auf die Platte. Die EDOS Order .DRST kann auf 
Grund des letzten CHECRPOINTS das Programm ab diesem Zeit- 
punkt wieder anlaufen lassen. 


Die IDS-Datei ist keine Standard-Datei und sie wird nicht 
automatisch durch das UP YDCK bearbeitet, deshalb missen 
zusttzliche Routinen benutzt werden. 


Fur CHECKPOINTS und RESTART ist folgendes Prinzip gultig: 


Die Aufzeichnung auf Magnetband bearbeiteter IDS-Pages wird im 
Update -Verfahren durchgefuhrt . 


Der Status des Kernspeichers wird durch das UP YDCK durchgefuhrt. 


In dieser Routine wurde der 3. Operand als Startadresse flr das 
UP YQREST kompiliert, durch das die IDS-Datei bearbeitet wird. 


Der Wiederanlauf des Programms erfolgt durch die Order .DRST, 


die nach dem Wiederherstellen des Kernspeichers und dem Einstellen 


der Standard -Dateien das UP YQREST startet. Dadurch wird die 
IDS-Datei wiederhergestellt und das Programm ab dem zuletzt 
aufgezeichneten CHECKPOINT gestartet. 


Die Journaldatei eines Programms mit CHECKPOINT ist nicht 


identisch mit einer Journaldatei eines Programms ohne CHECKPOINTS. 
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Es gibt folgende Unterschiede: 


- Fur jeden auf der Platte aufgezeichneten CHECKPOINT wird ein 
spezieller Block auf das Journalband geschrieben. Dieser Block 
enthalt den Wert 4F, 1g) imersten Zeichen. Nach einem 
Programmlauf enthtift das Journalband n-Blécke mit 
n-CHECKPOINTS, unabhtngig von Unterbrechungen und Wieder~ 
anldufen. 


-Werden nur BEFORE -Pages aufgezeichnet, kann eine Page auch 
doppelt auf dem Band enthalten.sein, obwoh! BEFORE-Pages 
in der Regel nur einmal aufgezeichnet werden. 


Das kenn durch das Lischen der PrUftabelle geschehen, die 

ve) sofort nach jedem geschriebenen CHECKPOINT geléscht wird. 
Dadurch ergibt sich ein Zustand, als ob keine Pages geschrieben 
worden waren. Dadurch kinnen in den verschiedenen Intervallen 


zwischen zwei CHECKPOINTS gleiche Pages doppelt aufge- 
zeichnet sein. 


6.2.2. Durchfthrung 


Die CHECKPOINT -Blécke werden nach E!©S-Standard-Regeln 
geschrieben, Das UP YCKP schreibt den Kernspeicherstatus auf 
Magnetband, das YQREST den Status der IDS -Datei. 


Danach wird das UP YQJPRE angerufen. 
Dieses UP schreibt in einem Block die erste Page auf Band, wobei 
der erste Wert des Page-Headers auf 4F6) gesetzt wird. 


Nach einer Unterbrechung wird die Order .DRST gestartet. Nach 
Ke) dem W iederhersteflen der Standard-Dateien und des Kernspeicher- 

inhalts wird das UP YQREST angerufen. Dadurch wird der OPEN= 

Befehl fur das Journalband durchgefUhrt, dazu wird das 

UP YQJOP benutzt. Danach liest das UP YQREST das Band, 

bis es eine Bandmarke findet. Jetzt wird das Band um einen Block 

zurUckgesetzt und der Block mit der Page wird in den Page -Puffer 

gelesen. In jedem Block wird der Inhalt des ersten Zeichens 

kontrolliert. 
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- Der Wert "40" 16) bezeichnet eine BEFORE-Page. 


Die notwendigen Parameter werden vorbereitet und das 
UP *DISC schreibt die Page auf die Plattenadresse, aus der 
sie gelesen wurde. . 


- Der Wert "4" 46) bezeichnet eine AFTER-Page. 


Dieser Typ braucht nicht auf die Platte geschrieben zu werden, 
denn diese Page wird nach dem RESTART neu ersteilt. 


- Der Wert "4F" bezeichnet das Ende des Wiederherstellens. 
Es handelt sich um die Page, die unmittelbar nach der Aus- 
fUhrung des letzten CHECKPOINT im gemeinsamen Puffer stand. 


Nachdem das erste Zeichen des Page-Kennsatzes durch den 6) 
Wert "40" ersetzt wurde, kann das Programm wieder anlaufen. 


6.2.3. Programmierhinweise 
6.2.3.1. CHECKPOINTS fur Journalbinder mit BEFORE- und AFTER-Pages 


Die nachfolgenden Instruktionen mUssen in einem bekannten Zyklus 
im Benutzerprogramm durchlaufen werden, damit ein CHECKPOINT 


geschrieben werden kann. 


ENTER APS. 
SUP YCKP 
Dc XLISNN* 
pec XLTMM* 
ENTER COBOL. € 


Die Konstanten kénnen folgende Werte annehmen: 


NN= 00 Meldung nach jedem CHECKPOINT drucken 
= FO keine Meldung drucken 


MM= = 00 nach jedem CHECKPOINT einen Halt auf der 
Adresse OOF8 durchfuhren. 
= FO keinen HLT durchfuhren. 


Diese beiden Konstanten entsprechen den Parametern des DCKP- 
Makrobefehls. 


¢ 
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Dieses Verfahren speichert den Inhalt des Kernspeichers auf 
Magnetband, kompiliert die benutzer-eigene Routine und 
schre ibt die erste PAGE auf das Journalband. 


CHECKPOINTS fur das Journalband mit BEF ORE-Pages 


Das Verfahren ist mit dem vorher beschriebenen identisch, nur mu8 


anschlieBend die Pruftabelle auf 9116) gesetzt werden: 


ENTER APS. 

SUB YCKP 

oc XLINN* 

oc XLTSMM* 

xc QTBLEBIT, QTBLEBIT 
ENTER COBOL. 


Programmierhinweise 


Nachfolgende UP’s werden zur Ausfuhrung eines CHECKPOINTS 
benitigt: 


- YCKP: Aufzeichnung der CHECKPOINTS 
~ YQREST: Wiederherstellen der IDS-Pages auf der Platte. 


Die beiden UP’s benétigen 400 Bytes mehr als die beiden UP"s 
fur die Journaldatei. 


Es sind keine Fehlermeldungen vorgesehen. 
Beim Wiederanlauf wird das Journalband auf Station 1 zurickgespult. 


Die beschriebenen Verfahren beziehen sich nur auf Pages der [IDS-Datei; 
andere Nicht -Standard-Dateien werden nicht berUcksichtigt. 
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Anhunge 
Formate der IDS-Befehle 


PROCEDURE DIVISION 


ENTER IDS. 


RETRIEVAL 
OPEN FOR {irosre \ 


IF ERROR GO TO_ Paragraphenname. 


STORE Satzname RECORD 
IF ERROR GO TO. Paragraphenname. 


INSERT Satzname RECORD IN Kettenname CHAIN 
IF ERROR GO TO Paragraphenname. 


MOVE TO WORKING STORAGE 
IF ERROR GO TO. Paragraphenname. 


HEAD Kettenname CHAIN 
IF ERROR GOTO Paragraphenname. 


MODIFY Feldname-] — ,Feldname-2, 
IF ERROR GO TO. Paragraphenname. 


REMOVE Satzname RECORD FROM Kettenname CHAIN 
IF ERROR GOTO Paragraphenname. 


DELETE 
IF ERROR GOTO Paragraphenname . 
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CLOSE 
IF ERROR GO TO Paragraphenname. 


RETRIEVE Satzname RECORD 
IF ERROR GO TO Paragraphenname. 


RETRIEVE CURRENT Sotzname RECORD 
IF ERROR GOTO Paragraphenname. 


RETRIEVE DIRECT 
IF ERROR GOTO Paragraphenname. 
IF Satzname GOTO Paragraphenname. C 
CURRENT 
RETRIEVE NEXT RECORD OF Kett CHAIN 
é PRIOR ettenname 
MASTER 


RETRIEVE EACH AT END GO TO Paragraphenname-1 
IF ERROR GOTO. Paragraphenname-3 
IE Satzname GOTO Paragraphenname -2 


c 
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Eintragungsformate~Datel- und Satzbeschreibungen 


IDENTIFICATION DIVISION, 
PROGRAM-ID.... 


ENVIRONMENT DIVISION. 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 


SELECT IDS Dateiname ASSIGN TO Dateicode. 
DATA DIVISION. 
WORKING-STORAGE SECTION 


IDS SECTION 

MD_ Dateiname PAGE CONTAINS Zahi-1 CHARACTERS 
FILE CONTAINS Zehl-2 IDENTIFIERS. 

01 Satzname TYPE IS Zahl-1 
IDENTIFIER-RANGE IS Zahl-2 TO Zahl-3 


Feldname FIELD 


| Kettenname-2% 
RETRIEVAL VIA igs \ CHAIN 


"USER CALC J 
[ PLACE NEAR Ketfenname-3 CHAIN. ] 
[ INTERVAL IS Zah!-4 IDENTIFIERS | . 
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Feldname DISPLAY 
wa {Fs } PICTURE t(n) sel TOMPUTATIONAL- i} 
| COMPUTATIONAL | 


98 Kettenname CHAIN MASTER 
SORTED WITHIN TYPE 
SORTED 
CHAIN ORDER IS ¢ —=— 


[ LINKED TO PRIOR “J = (; 


I. a 


H ) 
Kettenname , Dace { 
98 { sie \ [CONDITIONAL ] CHAIN DET. 


AIL 
USER-CALC 


[ RANDOMIZE ON Feldname-1 [ RANDOMIZE... Jj] 
SELECT CURRENT MASTER 


ASCENDING ASCENDING | | 
| {sesezons | [RANGE ] KEY IS Feldname-2 lf DESCENDING }s | 


PARC Ga, led C 


DUPLICATES V5 LAST 
—————~ nor Attoweo.J _| 


[ LINKED TO MASTER. | 


[REPORT SECTION - ] 


C 


G-100 
Ref. -Nr.: 32.30.206 D 
Juli 1973 


2 


- 137 - 


7.3. Liste der reservierten Warter 


Die nachstehend aufgefthrten Wérter sind ausschlieBlich fur 
IDS reserviert und dirfen nicht im Source-Programm als 
Datenname verwendet werden. Der Programmierer sollte auch 
Einblick in die Liste der fur den COBOL-Compiler reservierten 
W6rter nehmen. Die nachstehende Liste ist als Erginzung zur 


COBOL-Wirterfiste anzusehen. 


AFTER FIRST-REFERENCE 
*ALLOWED *FOR 
*ARE FROM 
ASCENDING GO 
ASSIGN HEAD 
*AT IDENTIFIER RANGE 
BEFORE *IDENTIFIERS 
CALC IDS 
CHAIN iF 
CHAIN-ORDER IN 
*CHARACTERS INSERT 
CLOSE INTERVAL 
CONDITIONAL “IS 
*CONTAINS *KEY 
CURRENT LAST 
DELETE LAST-REFERENCE 
DESCENDING LINKED 
DETAIL MASTER 
DIRECT MD 
DIRECT-REFERENCE MODIFY 
DUPLICATES MOVE 
EACH *NEAR 
END NEXT 
ERROR *NOT 
ERROR-REFERENCE *OF 
FIELD *ON 
FILE OPEN 
FIRST PAGE 


* Nur fur bessere Lesbarkeit reserviert. 


PLACE 
PRIOR 
RANDOMIZE 
RANGE 
*RECORD 
RECORD-T YPE 
REMOVE 
RETRIEVAL 
RETRIEVE 


UPDATE 

USER-CALC 
VIA 
"WITHIN 


Zur Beachtung: 


Q darf nie als erster Buch- 
stabe eines Datennamens 
oder Prozedurnamens in 
einem Source-Programm 
verwendet werden. 

Q ist fur Kennsttze, die 
vom IDS-Translator ge- 
neriert werden. 
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7.4, IDS -Definitionsgliederung 


Die vom IDS geforderte Definitionsgliederung ist eine Listen- 
gliederung, die die Beschreibung der Sdtze in der Datei 

wiedergibt. Sie definiert die Master/Detail-Beziehung zwischen 
Sutzen, Kettenmerkmalen sowie physikalischer Eigenschaften und 
Stevermerkmale jedes Feldes eines jeden Satztyps in der IDS-Datei. 


Der Aufbau einer solchen Definitionsgliederung ist unter Verwendung 
der IDS-Kurzschriftmethode nachstehend gezeigt. 


Kommunikation- 
steverblock 


Satz- 
definition 


Satzart CHAIN 


Feld CHAIN 


Master CHAIN: 


Feld- 
definition 


Kette CHAIN 


Anderungs- 
CHAIN 


Stever-CHAIN 
Steuerungs- 
definition 


IDS-Definitionsaufbau 
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7.4.1. Communication-Control -Block 


Der Eintrag fur den Kommunikationssteuerblock wird in Form eines 
Masters der Satztypen-Kette vorgenommen. Er dient als Uber- 
tragungsbereich fur Daten, die zwischen Benutzerprogramm und den 
IDS -Subroutinen Ubertragen werden mUssen. 


Die 27-Byte dieses Steverblocks setzen sich wie folgt zusammen: 
LOC-CCB Definitionstyp-00 


LOoc-CCB+ DIRECT REFERENCE 


Der RECORD IDENTIFIER des letzten 
verarbeiteten Satzes (3 Bytes). 


Loc-CccBH FIRST REFERENCE 


RECORD IDENTIFIER des ersten durch 
RETRIEVE EACH aufzugreifenden Satzes. 
Der Wert wird vom Benutzerprogramm 
festgelegt. Nach jedem Aufgreifen erfolgt 
eine Erhshung des Wertes durch die 
IDS-Subroutinen um Eins (3 Bytes). 


LOC-CCB+7 LAST REFERENCE 


Ein vom Benutzerprogramm gelieferter Wert . 
Ist der RECORD IDENTIFIER erreicht, fubrt 
das RETRIEVE EACH-Verb den AT END- 
Befehl aus (3 Bytes). 

LOC-CCB+10 Satztyp 


Satztyp des letzten verarbeiteten Satzes. 


Loc-ccB+ll ERROR REFERENCE 


Wahrend der Ausfuhrung wurde ein Bindrcode 
flr eine Fehlerbedingung angetroffen. Liegt 
kein Fehler vor, ist der Wert Null. 


G-100- —— SOS 


Ref. -Nr.: 32.30.206 D 
Juli 1973 


G~100 


LOC-CCBH12 


LOC-CCB+H3 


LOC-CCB+5 


LOC-CCB+18 
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Nicht verwendet. 


Satztypen-Kette NEXT 
Das zugeordnete Symbol der Definitionsstruktur 
des ersten Satzes (2 Bytes). 


Kleinster RECORD IDENTIFIER des 
Systems (3 Bytes). 


GréBter RECORD IDENTIFIER des 
Systems (Wert aus MD) (3 Bytes). 
Dateiname 


Der der IDS-Datei erteilte und in der 
MD -Anweisunf verwendete Name 
(IDS-Dateicode) «6 Bytes). 
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Satzdefinit ionseintrag 


FUr jeden Satztyp in der IDS-Datei wird ein Satzdefinitionseintrag 
vorgenommen. Zustitzlich erfolgt ein solcher Eintrag fur den Page- 
Kennsatz. Der Satzdefinitionseintrag ist der Master der Master-Kette, 
der Detail-Kette und der Feld-Kette; er ist jedoch ein Detail der 
Satztypen-Kette. 


Die 24-Bytes des Satzdefinitionseintrags setzen sich wie folgt 


zusammen: 
LOC-REC 


LOC-REC+I 


LOC-REC+2 


LOC-REC+3 


LOC-RECH 


LOC-REC+7 


Definitionstyp-01 


Satztyp 


Eine jedem Datensatz zugeordnete Zah! von 

1 bis 254, 255 wird dem Page -Kennsatz 
(10) 

zugeordnet. * / 


R/P/S~-Anzeige (Zugriffsdaten) 
R-Bitposition 0 

Schalter gesetzt bedeutet Primirsatz. 
P-Bitposition 1 (siehe LOC -REC+8) 
Schalter gesetzt bef IDENTIFIER RANGE 
S-Bitposition 2 

Schalter gesetzt bei PLACE NEAR 


Feld-Kette NEXT (2 Bytes) 


Der ersten Felddefinition dieses Satzes 
zugeordnetes Symbol. Sind keine Daten - 
felder vorhanden, ist dies das der Satz- 
definition zugeordnete Symbol. 


IDENTIFIER INTERVAL (2 Bytes) 


Anzahl der zu Uberspringenden Pages, ge- 
rechnet ab der Page, in der der Jetzte Satz 
dieses Typs gespeichert war. Betrifft nur 
Primar= und Sekundiirstitze. 


SatzgrdRe (2 Bytes) 


Anzahl der Zeichen im Satz einschlieBlich 
aller Stever- und Kettenfelder . 


ET) 
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LOC-REC+#13 


LOC-REC+15 


LOC-REC+18 
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Master-Kette NEXT (2 Bytes) 


Das der ersten Master-Definition dieses Satzes 
zugeordnete Symbol. Ist dieser Satz nicht 
Master irgendeiner Kette, ist dies das Symbol 
fur die Satzdefinition. 


Detail -Kette NEXT (2 Bytes) 


Das der ersten Detail Definition dieses 
Satzes zugeordnete Symbol. Ist dieser Satz 
nicht Detai! irgendeiner Kette, ist dies das 
Symbol fur die Satzdefinition. 


Satztypen-Kette NEXT (2 Bytes) 


Das Her néichsten Satzdefinition der 


: Definitionsstruktur zugeordnete Symbol. 


Ist dies der letzte Satzdefinitionseintrag, 
enthalt dieses Feld die symbolische Adresse 
des Kommunikationssteverblocks. 


RECORD IDENTIFIER (3 Bytes) 


RECORD IDENTIFIER des letzten verarbeiteten 
Satzes dieses Satztyps. Diese Angabe wird 
vom IDS wihrend der Ausfhrung bereitgestellt. 


Unterste IDENTIFIER RANGE (Bytes) 


Nummer der ersten Page eines Page-Setes, 
in dem alle Sdtze dieses Typs gespeichert 
werden sollen. 


Oberste IDENTIFIER RANGE (3 Bytes) 


Nummer der letzten Page eines Page -Sets, 
in dem alle Sdtze dieses Typs gespeichert 
werden solfen. 


eee 
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Eine Master~-Definition erfolgt jedesmal, wenn ein Satz als Master 
einer Kette definiert wird. Die Master-Definiton ist ein Detail der 
Master-Kette und der Master der Kettenkette (CHAIN-CHAIN). 


Der 28-Byte-Bereich enthilt folgende Angaben: 


LOC-MAS 


LOC-MAS+I 


LOC-MAS+2 


LOC-MAS+3 


LOC-MAS+5 


LOC-MAS#7 


LOC-MAS+9 


LOC-MAS+11 


Definitionst yp-01 


Satztyp 


Dieselbe Angabe wir der im Definitions- 
eintrag spezifizierte Wert. 


Nicht verwendet. 


Kettenkette NEXT (2 Bytes) 


Der ersten Detail-Definition dieser Kette 
zugeordnetes Symbol. Sind fur die Kette 
keine Details definiert worden,_ist dies das 
Symbol fur die Master-Definition. 


PRIOR-Position (2 Bytes) 


Die auf das erste Zeichen des Satzes bezogene 
Zeichenposition, in der das erste: PRIOR- 
Kettenfeld angetroffen wird. Ist der Master 
nicht PRIOR~verarbeitbar, ist dieser Wert Null. 


NEXT Position (2 Bytes) 


Die auf das erste Zeichen des Satzes bezogene 
Zeichenposition, in der das erste Zeichen des 
NEXT -Kettenfeldes angetroffen wird. 


Master-Kette NEXT (2 Bytes) 


Der ntichsten Master-Definition zugeordnetes 
Symbol, falls dieser Satz Master mehrerer 
Keiten ist. Ist er Master nur einer Kette oder 
Master der letzten von mehreren Ketten, so 
ist diese Kodierung Symbo! fir die Satz- 
definition dieses Satzes. 


Master-Kette HEAD (2 Bytes) 


Dem Definitionseinirag dieses Satzes zuge- 
ordnetes Symbol. 
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LOC-MAS#16 


LOC-MAS+19 


LOC-MAS+22 


LOC-MAS+25 
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RECORD IDENTIFIER der Kette MASTER (2 Bytes) 


RECORD IDENTIFIER des Masters dieser 
Kette, definiert durch die Master—-Definition. 
Dieser Wert wird von IDS wahrend der 
Bearbeitung gegeben. 


RECORD IDENTIFIER der Kette PRIOR (3 Bytes) 


RECORD IDENTIFIER des PRIOR-Satzes, 

der durch diese Master-Definition bestimmten 
Kette. Der Wert wird vom IDS wihrend der 
Bearbeitung bereitgestelt. 


RECORD IDENTIFIER der Kette CURRENT (3 Bytes) 


RECORD IDENTIFIER des laufenden Satzes der 
durch diese Master-Definiton bestimmten 
Kette. Dieser Wert wird vom IDS wiahrend 

der Bearbeitung bereitgestellt. 


RECORD IDENTIFIER von Kette NEXT (3 Bytes) 


RECORD IDENTIFIER des ntichsten Satzes 
der durch diese Master-Definition bestimmten 
Kette. Dieser Wert wird vom IDS wahrend 
der Bearbeitung bereitgestel lt. 


3 Bytes, nicht verwendet. 


EASE 
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Detail -Definitionseintrag 


Ein Detail -Definitionseintrag erfolgt jedesmal, wenn ein Satz Detail 
einer Kette ist. Ist es Detail in drei verschiedenen Ketten, erfolgen 
drei Detai! -Definitionseintrige. Die Detail-Definition ist ein Detail 
der Kettenkette (CHAIN-CHAIN) und der Detail-Kette. Er ist 
auBerdem Master der Steverkette. 


Der 20 Byte umfassende Bereich ist wie folgt aufgeteilt: 
LOC-DET Definitionstyp-04 


LOC-DET+1 Satztyp 


Dieselbe Angabe wie der im Definitions- 
eintrag dieses Satzes spezifizierte Wert. 


LOC -DET+2 Reihenfolge 


Ein Code zur Darstellung der ketteninternen 
Reihenfolge ger einzelnen Details dieser 

Kette (CHAIN-ORDER). Wurden mehrere 
Satztypen als Detail derselben Kette definiert, 
muB die CHAIN-ORDER fur alle Sdtze die- 
selbe sein. Die CHAIN-ORDER fur eine CALC 
CHAIN mu8 z.8. 6 lauten, da der Satz 

nach (AFTER) dem laufenden Satz eingefUgt 


wird. 
CODE CHAIN-ORDER 
1 SORTED WITHIN TYPE 
(innerhalb des Satztyps sortiert) 
2 SORTED 
(ohne Berticksichtigung des 
Satztyps sortiert) 
3 FIRST 
{erster Satz der Kette) 
4 LAST 
(letzter Satz der Kette) 
5 BEFORE 
(vor Hd. Satz) 
6 AFTER 


(nach Ifd. Satz) 


SASL 
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LOC-DET+3 Ketrenkette NEXT (2 Bytes) 


Das der nachsten Detail-Definition dieser 
Kette zugeordnete Symbol, wenn in der 

Kette mehr als ein Satztyp vorhanden ist. 
Liegt nur eine Detail -Definiton vor oder 

ist sie die letzte von mehreren, dann ist 
dieser Wert das der Master-Definition fUr diese 
Kette zugeordnete Symbol . 


LOC-DET+#5 PRIOR-Position (2 Bytes) 


Die Zeichenposition, relativ zum ersten 

Zeichen des Satzes, in der das erste Zeichen 

des Ketten-PRIOR-Feldes angetroffen wird. 

Ist die Kette nicht PRIOR-verarbeitbar, Cc 
ist dieser Wert Null. 


LOC-DET+17 NEXT -Position (2 Bytes) 


Die Zeichenposition, relativ zum ersten 
Zeichen des Satzes, in der das erste Zeichen 
des Ketten-NEXT -Feldes angetroffen wird. 


LOC-DET+9 Steverkette NEXT (2 Bytes) 


Das der ersten Steverdefinition dieser Kette 
zugeordnete Symbol, fails vorhanden, sonst das 
dieser Detail -Definition zugeordnete Symbol. 


LOC-DET+11 Detail-Kette NEXT (2 Bytes) 


Das der nachsten Detail ~Definition dieses 

Satzes zugeordnete Symbol, wenn der Satz Cc } 
ein Detail! in mehr als einer Kette ist. 

Gibt es nur eine Detail-Definition oder ist sie 

die letzte von mehreren, dann ist dieser 

Wert das zugeordnete Symbol fur die 

Satzdefinition. 


LOC-DET+13 Detail-Kette HEAD (2 Bytes) 


Dem Definitionseintrag dieses Satzes 
zugeordnetes Symbol . 


c 
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Kettenkette HEAD (2 Bytes) 


Der Master-Definition dieser Kette zuge- 
ordnetes Symbol. 


HEAD-~Position (2 Bytes) 


Die auf das erste Zeichen des Satzes 
bezogene Zeichenposition, in der das erste 
Zeichen des HEAD-Kettenfeldes ange- 
troffen wird. Ist die Kette keine HEAD-Kette, 
so ist dieses Zeichen Null. 


UC/R/S/U/DUP/C-Anzeiger (2 Bytes) 
(RETRIEVAL -Daten) 


Bit- Bedeutung bei ON 
position 
0 c - CALC CHAIN 
DETAIL 
142 DUP -0= DUPLICATES 
NOT ALLOWED 


1 = DUPLICATES FIRST 
2 = DUPLICATES LAST 


U - SELECT CURRENT MASTER 

s ~ PLACE NEAR MASTER-Saiz 
dieser Kette. 

R - RETRIEVAL VIA diese CHAIN 


UC = RETRIEVAL VIA benutzer- 
eigene AdreBrechnungs- 
Routine 


[TE 
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Felddefinitionseintrag 


Ein Felddefinitionseintrag erfolgt fUr jedes im Satz enthaltene 
Datenfeld (er erfolgt nicht fUr die einzelnen Kettenfelder, den 
RECORD IDENTIFIER, den Satztyp oder die Satzgréfenfelder). 
Wurde ein Satz als Primar-Satz definiert, erfolgt eine Feld~- 
definition fir das Feld, das dem RECORD IDENTIFIER gleich ist. 
Der Felddefinitionseintrag ist ein Detail in der Feldkette und der 
Master der Anderungskette. 


Der 1] -Byte~Bereich ist wie folgt aufgeteilt: 


LOC-FLD 


LOC-FLD+1 


LOC-FLD+3 


LOC-FLD+5 


LOC-FLD+7 


LOC-FLD+9 


Definitionstyp-0A 


U/Feldgré8e (2 Bytes) F 

Wenn Bit 7 des Zeichens 2 ON (U) ist, 
bezieht sich die Felddefinition auf das 
eindeutige Feld eines Primtirsatzes. IDS 
geht davon aus, da das Format fur dieses 
Feld im Arbeitsspeicher 3 Zeichen umfaBt 
(PICTURE 9(6) COMPUTATIONAL-1). 


Feldkette NEXT (2 Bytes) 


Das der nachsten Felddefinition dieses Satzes 
zugeordnete Symbol, falls der Satz mehrere 
Felder enthalt. Enthals er nur ein Feld oder 
ist dieses das letzte von mehreren Feldern, ist 
dieser Wert das dem Definitionseintrag dieses 
Satzes zugeordnete Symbol. 


Anderungskette NEXT (2 Bytes) 


Zugewiesenes Symbol fur die erste Steuer- 
definition dieses Feldes oder, wenn es sich 
nicht um ein Steverfeld handelt, das dieser 
Felddefinition zugeordnete Symbol. 


WORKING STORAGE -Adresse (2 Bytes) 


Das dem linksbiindigen Zeichen des flr dieses 
Feld definierten Arbeitsspeichers zugeordnete 
Symbol. Dieses Symbol ist gleich dem Feld- 


namen. 


Position des Feldes im Satz (2 Bytes) 


A ESET 
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Steverdefinitionseintrag 


Ein Steuverdefinitionseintrag erfolgt jedesmal, wenn ein Feld als 
Steuerfeld einer Kette definiert wird. Ein Steuerfeld wird als 
Sortierfeld oder als RANDOMIZE-Feld definiert. Der Stever- 
def initionseintrag ist’ ein Detail der Anderungskette und der 


Steverkette. 


Der 11-Byte-Bereich ist wie folgt aufgeteilt: 


LOC-CON 


LOC-CON+#1 


LOC-CON#2 


LOC-CON+3 


LOC-CON+H 


LOC-CON+7 


Definitionstyp-14 


Art des Steverfeldes: 


U=1 RANDOMIZE-Feld 

U=2 Aufsteigendes Sortierfeld 
(ASCENDING) 

U=3 Absteigendes Sortierfeld 


(DESCENDING) 


RANGE KEY 


Wenn gleich 1, aufsteigendes Vergleichs- 
feld gleich oder grdRer. 

Wenn gleich 0, muf aufsteigendes 
(ASCENDING) Vergleichsfeld gleich sein. 


MODIFY CHAIN HEAD (2 Bytes) 


Der Felddefinition dieses Steverfeldes zuge- 
ordnetes SymboJ. 


MODIFY CHAIN NEXT (2 Bytes) 


Der niichsten (NEXT) Steverdefinition 
zugeordnetes Symbol, wenn dieses Feld 

ein Steverfeld in einer anderen Kette ist. 

Ist es die letzte oder einzige Steverdefinition 
fur dieses Feld, so ist dieser Code das 

Symbo! fur die Felddefinition. 


Steverkette HEAD (2 Bytes) 


Zugeteiltes Symbol fUr die Detail-Definition 
der von dieser Steverdefinition gesteverten 
Kette. 
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LOC-CON+9 Steuerkette NEXT (2 Bytes) 


Der nuchsten Steuerdefinition fur die Kette 
zugeordnetes Symbol, ist dies die letzte oder 
einzige Steverdefinition, gilt der Code 

als Symbol! fur die Detail-Definition. 


Wurden fur eine gegebene Kette mehrere Steuerfelder definiert, 
mUssen sie in bestimmter Reihenfolge, und zwar vom héheren zum 
niedrigeren Sortierschlussel erscheinen. 
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7.5. Beschreibung der Page 


Die IDS-Page hat eine feste Lange, die ihr bei der Erstellung der 
IDS -Datei zugeordnet wird, Sie kann jede beliebige Kombination 
logischer Satztypen, die mit ihren zugehtrigen Ketten verbunden 
sind, enthalten. Jeder Satztyp kann seine eigene, spezifische 
Linge haben. Verwandte Satztypen werden entsprechend ihrem 
Dateninhalt miteinander verknUpft und kénnen innerhalb derselben 
Page gespeichert werden. Eine optimale Speicherplatzausnutzung 
wird dadurch erreicht, da8 diese Sitze innerhalb der Page luckenlos 
aneinander gereiht werden. 


Jede Page beginnt mit einem 10-Byte langen Page-Header. Dieser 
Satz besteht aus mehreren, von den 1DS-Subroutinen verwendeten 
Steuerfeldern. Die Beretche des Page -Headers sind wie folgt 


aufgeteilt: 
Bytes 


0 
1-2-3 


7-8-9 


G-100 


Funktion 


Definitionstyp40 
Page -Nummer 


Wiahrend der Dateivorbereitung wird jeder vom 
Anwender bendtigten Page eine individuelle Nummer 
zugeordnet. 


Anzahl der belegten Lines pro Page. 
Leerstellenzthler 


Laufender Stand der flr die Speicherung von Sdtzen 
innerhalb einer Page verfUgbaren Speicherstellen. 


CALC CHAIN NEXT Hinweisadresse 


Kettenfeld, das den RECORD IDENTIFIER des ersten 
Satzes einer Kette kalkulierter Sdtze anzeigt, die 
durch die AdreBumrechnung alle in diese Page gelangen. 
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Am Ende einer jeden Page stehen dreistellige RECORD LOCATOR, 
und zwar ein solches Wort pro Satz der Page, einschlieBlich des 
Page-Headers. Diese Felder haben das folgende Format: 


Bytes Funktion 


0 Satztyp 
Satztyp-255¢1 ¢ wird jedem Page -Header zugeordnet. 


Satz oder Zahl von 1 - 254, die jedem Datensatz 
zugeordnet wird. 


1-2 Position des Satzes in der Page 


Bit 8 des Zeichens 1 ist der Lésch-Schalter; 
ist er eingeschaltet, bedeuter das, da der Saiz 
logisch aus der Datei geléscht wurde. 


0123456789 


Page -Header 


G-100 


Das rechtsbUndige Satzsteuerwort ist mit dem 
Page -Header verknipft. In diesem Fall ist 
Bit 8 des Zeichens 1 der MUST -WRITE- 
Schaiter, eine vom IDS verwendete Anzeige, 
um festzustellen, ob eine Page seit dem Auf- 


[oi2 | greifen der Daten getndert wurde. 
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Zusammenfassung der !DS-Software -Kriterien 


Wann immer Sdtze inden Speicher Ubertragen werden, geschieht 
dies unter dem Einflu8 der nachstehend beschriebenen IDS SECTION. 


IDENTIFIER-RANGE 
INTERVAL 
PLACE-NEAR 
RETRIEVAL VIA 


IDENT IFIER-RANGE 


Diese Angabe hat stets Vorrang. Ein Satz kann nie auBerhalb 

des ihm zugeordneten Bereichs gespeichert werden. Erzeugt die 

an eine Anweisung geknUpfte Standardlogik einen RECORD IDENTIFIER 
auBerhalb des vorgesehenen Bereichs, so wird automatisch eine 
Zusatzlogik eingeschaltet, die einen RECORD IDENTIFIER innerhalb 
des richtigen Bereichs erzeugt. Wird wihrend dieses Vorgangs die 
obere Grenze des Kennzeichnungsbereichs erreicht, kommen die 
normalen Uberlaufrege!n zur Anwendung (siehe Anm. der RETRIEVAL 


VIA-Anweisung). 


RETRIEVAL VIA 


Diese Anweisung legt das fUr die Speicherung der Sdtze anzu- 
wendende Verfahren fest. 


Feldname ~ PRIMARY 
Kettenname - SECONDARY 
CALC = CALCULATED 


Aus der Speicherungsmethode ergibt sich die zur Bestimmung der Start- 
adresse fUr die Speicherung verwendete Standardlogik. 


PLACE-NEAR 


Wurde keine PLACE NEAR-Anweisung gegeben, so tritt anstelle 
von PLACE NEAR die RETRIEVAL VIA-Kette. 


Die Speicherungslogik variiert mit der Speicherungsmethode. Die 
Logik wird fUr jede Satzart nachstehend kurz beschrieben: 


al 
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PRIMARY RECORD (Primir-Stitze) 


Ist der DIRECT-REFERENCE nicht gleich Null oder auGerhalb des 
IDENTIFIER RANGE, so wird der im DIRECT-REFERENCE angegebene 
Wert als Startadresse benutzt. Dieser Wert kann entweder durch die 
IDS-Bearbeitung generiert worden sein oder vom Anwenderprogramm 
speziell geladen worden sein. Ist DIRECT-REFERENCE gleich Null 
oder auBerhalb des zuldssigen Bereichs, so ist die Startadresse fur die 
Speicherung der untere Grenzwert des IDENTIFIER RANGE. Wurde 
INTERVAL spezifiziert und der zu speichernde Satz ist nicht der 
erste seines Typs, dann wird der Wert des jeweils zutrefenden der 
beiden o.g. Fille zur Startadresse plus dem spezifizierten INTERVAL 
eingesetzt. Die PLACE-NEAR~Angabe wird Ubergangen. 


CALCULATED RECORDS (errechnete Sitze) 


Werden IDENTIFIER RANGE und der (die) Wert{e) in dem (den) 
Umrechnungsfeld{ern) (RANDOMIZE) als Eingabe fur die AdreB- 
umrechnungsformel, so dient als Startadresse die Page, in die der 
Satz durch die Umrechnung gelangt. PLACE-NEAR und INTERVAL 
werden Ubergangen. 


SECONDARY RECORDS (Sekundérsitze) 


Wird INTERVAL nicht verwendet oder wird verwendet, aber der 
laufende (CURRENT) Satz des Satztyps ist Null oder der Satz ist 
der erste zu speichernde dieses Satztyps, so dient als Start- 
adresse die Page des MASTER der in der PLACE-NEAR -Anweisung 
genannten Kette. Befindet sich diese Page auBerhalb des 
IDENTIFIER RANGE, wird die untere Grenze als Startadresse 
verwendet. Wurde INTERVAL spezifiziert und der laufende Satz 
des Satztyps ist nicht gleich Null, oder der Satz ist nicht der erste 
zu speichernde Satz dieses Satztyps, dient als Startadresse die 
Page des Jaufenden Satzes dieses Satztyps plus spezifiziertes 


INTERVAL (falls vorhanden). 


Bei Anwendung des [ DENTIFIER-RANGE ist zu beachten, daB - wenn 
die Anfangskennzeichnung von IDENTIFIER-RANGE nicht am Beginn 
der Page steht ~ IDS den Page-Header der ntichsten Page benutzt, 

um dort mit der Satzspeicherung zu beginnen. 


ED 
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Random-Generator 


Der Random-Generator wird vom IDS zur Erzeugung einer Zufalls- 
pagenummer fur kalkulierte Ketten eingesetzt. Der Random-Generator 
arbeitet nach dem gleichen Prinzip wie bei den Serien 400 und 6000. 


Die Randomzahl arbeitet jeweils mit 3 Zeichen (8 Bits). Das Register 
flr Rundyerschiebungen ist 24 Bits lang. Uberlaufe wahrend der 
ZahSenerrechnung werden Ubergangen. Das Flufdiagramm auf den 
folgenden Seiten illustriert die Logik des IDS-Random-Generatars. 


Schleife A 


Verwaltungsfunktion: 
Teilergebnis einsetzen 


Schleife B Schleifenzthler setzen = 
Anzahl der Zeichen im 


Feld; Teilergebnis laden 


ites Zeichen zum 
Akkumulator 
addieren= 1,2,3 usw. 


9 Bits nach rechts 
verschieben 
(im 24-Bit -Register) 


Komplement des 
Akkumulators bilden 


niedrigstwertige 
Bit ungerade? 


istes Zeichen zum 
Akkumulator addieren 
i= 1,2,3, usw. 
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Im folgenden Beispiel wird ein 3-stelliges Feld durch die AdreB= 


umrechnungsfunktion verfolgt. Da durch die drei Stellen die_ 
Schleife (LOOP) dreimal durchlaufen wurde, kennzeichnen X, X* und X~* 


den ersten, zweiten und dritten Durchlauf. 


© 


weitere 9 Bits nach rechts 
verschieben 
(im 24-Bit -Register) 


i fur ntichstes - 
Zeichen erhdhen 


foch weitere 
Zeichen 
im Feld? 


Teilergebnis 
speichern 


Pagenummer 
innerhalb des 
Dateibereichs’ 


Durch Dateiumfang 
dividieren (Pages) 


Basis zum Rest 
addieren 

Nr. der Page 
speichern 


Verzweigen 


SS SS ‘ 
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000 
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WwW 
011 


100 
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000 


100 
001 
110 
010 
110 


V1 
WI 
000 
001 
WW 


iste Stelle (9) hinzuaddieren 
Rechte Rundverschiebung um 9 Bits 
Kein Komplement, Bit war gerade 
i-+te Stelle (9) hinzuaddieren 


Rechte Rundverschiebung um 9 Bits 


ite Stelle (4) hinzufUgen 

Rechte Rundverschiebung um 9 Bits 
Komplement, Bit war ungerade 
ite Stelle hinzuaddieren 


Rechte Rundverschiebung um 9 Bits 


i-tes Zeichen (A) hinzuaddieren 
Rechte Rundverschiebung um 9 Bits 
Komplement, Bit ist ungerade 
i-tes Zeichen (A) hinzuaddieren 


Rechte Rundverschiebung um 9 Bits 


Es wird davon ausgegangen, da@ dies das einzige umzurechnende Feld ist. 


Die Feldumrechnung hat somit fUr die Page die Zahl 53. 136.007 (oktal) 
oder 11.320.327 (dezimal) ergeben. Bei einer angenommenen Dateiliinge 
von 20.000 Pages betriigt der Divisor 11.320,327 : 20.000 = 566, 

Rest 327. Geht man von einer Basis (Nullpunkt der Datei) von 400 Pages 
aus, ergibt sich 327 + 400 = 727. Wie dargestellt, wurde fur das Feld, 
das zuvor 94A enthielt, die Page 727 (dezimal) errechnet. 


FT a 


Ref. -Nr.: 32.30.2065 D 
Juli 1973 


- 158 - 


Das Datei-Initialisterungsprogramm (FILE-INT) aktiviert die Dateien 
fur IDS. Die Aktivierung besteht aus der Erstellung von Vorsatz- 
zeichen fur die Page sowie Steuerzeichen in jeder Page der Datei; 
zusdtzlich werden die zur Dateibeschreibung erforderlichen Daten 
erzeugt und in der Plattendatei gespeichert. Somit werden alle zur 
Anwendung einer IDS-Datei erforderlichen Daten gespeichert. Fur 
den Zugriff zur Datei werden nur der Dateiname und die Stations- 
nummer bendtigt. 


Das FILE-JNT -Programm wird nur einmal wahrend der Nutzungsdaver 
einer Datei ausgefthrt; es wird verwendet zur Definiton von: 


1. Dateinamen 

2. Datei- und PagegréBe = 
3. Verteilung der RECORD IDENTIFIER entsprechend den Pages C ” 
4. Position der Datei auf dem Plattenturm. 


Dieses Programm zerstért alle Daten in der Datei, die der [D5-Datei 
zugeordnet sind. 


Die Parameter des FILE-INT-Programms sind auf der letzten Seite dieses 
Anhangs dargestel!t. Bei der Mehrzahl der Parameter flr das Programm 
ist eine Erklirung UberflUssig; folgende Punkte sollten jedoch beachtet 


werden: 
Der kleinste RECORD IDENTIFIER muB Eins (1) sein. 


2. Ein PAGE SET ist eine Gruppe von Pages, die die gleiche Anzahl 
Lines pro Page haben miissen. 


3. Die Anzahl der LINES pro Page mu mindestens zwei (2) betragen. @ 
Die maximale Anzahl der PAGE SETS ist 40. 


5. Die Zahl der PAGE SETS muf fur jedes Set, das Uber 2 Plattenstapel 
reicht, um Eins (1) erhéht werden. 


6. Unvolistindige Dateien sind innerhalb eines Plattenstapels 


nicht zulissig. 


Alle Dateien sind durch die Order .SFD zu definieren. Die Datei 
ist sequentiell ohne Overflow anzulegen. Die Datei wird im 
8-Bit -Modus geschrieben. 
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Sind die Eingabedaten des FILE-INT-Programms nicht folgerichtig, 
wird die Datei nicht aktiviert und folgende Fehlernachricht ausgedruckt: 


100-MODIDS FILE INITIALIZE 
ERROR MESSAGE — ERRxx 


Es ist darauf zu achten, da die Programmdate? nach einem Fehler 
geléscht werden mu8, bevor sie erneut aktiviert werden kann. 


ERRxx kann einen der folgenden Fehlercodes enthalten: 


Fehlercode Bedeutung 


ERROI UnguUltiger Kartencode - Kartentyp 1 

ERRO2 Keine Datei auf erstem Plattenstape! 

ERROS Umfang der Page zu gro8 

ERRO4 Ungiltiger Kartencode - Kartentyp 3 

ERROS Fehler im RECORD IDENTIFIER 

ERROS Tabellenende bei PAGE SETS 

ERRO7 Keine Datei auf zustttzlichem Plattenstapel 

ERROS IDENTIFIER stimmen nicht mit der Anzahi LINES 
pro Page Uberein 

ERROP UngenUgend Speicherplatz fur Datei 

ERR10 Datei zu umfangreich 

ERR11 Gréfierer Bereich reserviert als in der IDS-Datei 


aktiviert. (Dieser Fehler stellt nur eine Warnung dar; 

das Programm lduft mit aktivierter Datei normal zu Ende.) 
ERR12 Anzahl der Page Set-Karten Uberschreitet den in der 

ersten Parameterkarte genannten Wert. 


ERRI3 Der in Feld 9 der FILE-INT? Karte angegebene Wert 


ist kleiner als erlaubt. 


Zur Beachtung: 


Im Fal! eines Fehlers mu8 die Datei geléscht werden, bevor die Datei 
neu aktiviert werden kann. (Ausnahme ERR?1) 
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Fur das FILE-INT-Programm werden 2 Parameterkarten bendtigt: 


Karte 1: 
Spalten Stellen 

1-10 10 KFILE-INT1 (Fester Wert) 

11-22 12 Name der Datei (externer Name) 

26 1 Stationsnummer (0 = 7) 

27 - 30 4 Anzahl der Zylinder (mir Vornullen) 
31-35 5 Pagegréfe in Bytes (mit Vornullen} 
36 - 45 10 kleinster RECORD IDENTIFIER (mit Vornullen) 
46-55 10 groiter RECORD IDENTIFIER (mit Vornullen) 
56 ~ 57 2 Anzahl der PAGE-SETS (evtl. mit Vornullen) 
Karte 2: 
Spalten Stellen 

1-10 9 BFILE-INT2 (fester Wert) 

11-20 10 nicht benutzt 
21 -30 10 Erster Page -Header Poge-Set I 
31-40 10 Letzter Page -Header tata 
41 - 50 10 Anzahl LINES pro Page (mit Vornullen) 


Mindestens eine Karte 2 ist obligatorisch. 
Pro Page-Set muB eine Karte 2 vorhanden sein. 


Die RECORD IDENTIFIER mUssen in aufsteigender Reihenfolge sein. 


G-100 —— - 
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Parameterkarte fUr den IDS-OPEN 


Der este IDS-OPEN-Befehl des Objektprogramms liest eine 
Parameterkarte. Dies mufi eine IDS-Karte sein, die die bendtigten 
Parameter zur Kennzeichnung der Datei enthdlt. 

Format der [DS-Karte: 


Spalte 
1-4 
5-12 
13 -18 
19 -30 
31 

32 


Beschreibung 

KIDS 

Programm-Name (derselbe wie Programm ID) 
IDS-Dateicode (derselbe wie MD-Eintragsname) 
IDS -Dateiname (derselbe wie FILE-INT -Name) 
Legische Nummer der ersten IDS-Datei. 


Logischer Plattenstapel der Programmdatei 
(normalerweise ist dies die Basis-Platteneinheit). 


Es ist zu beachten, daf eine Karte nur flr den ersten OPEN -Befehl 
einer [DS-Datei gelesen wird. Der Programmierer mu8 daher beim 
Schreiben des Programms darauf achten, den IDS-OPEN -Befehl 

an erster Stelle zu kodieren. 


ee 
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eben, sowie elnige Besonderhstten dor Progrommizrsprachs 
COBOL evidutorn. 


4 


Die zu dieser SSM fiihrenden Erfehrungen wurden mit dem Betriebssystein 


=—_,' 


EDOS 24 gemacht, auBercdem wurden Erkenninisse aus dem COBOL~ 


Optimierungskurs, Referent Herr Voyelsang, verwertet. 


[eg 


ez. Hertting gez. Hegger 


Verfassers 
E. Hegger, Systeme 50/100 


Soman wh 


BGWYOnyAnawn—o-e 


eo es 
ene ee 


NNEREN SNPS PNY NY NN SNNSNENND 


© 


NNNPNNNNNN Stee Se Se eS 


MON AARON 


"NN NN NNYNNNNN 


Inhaltsverzeichnis 


Allgemeines 


Optimale COBOL-Programmierung der Serie 100 


Zeitoptimierung des Programmlaufes 
Indizierung 

PERFORM 

IF 

Felddefinitionen 

Drucken 

Copy 

Platzoptimierung 

Zeitoptimicrung der Compilierung 


COBOL-Besonderheiten und Empfehlungen 


Compilicrung 

Actual-Key 

APPLY CH 

APPLY OVERFLOW 
LABEL RECORD OMITTED 
Einfgen 

DELETE 


SAG WwWwWNN Ww 


MEXED-Mode-Zugriff auf cine indiziert-sequentielie Datei 


Prifen Eingabedaten 

IF NUMERIC 

IF FELD NEGATIVE 

IF FELD POSITIVE 
IF-Abfragen aligemein 
Figurative Konstanten 
BINAR-Konstanten 
VALUE-Angabe (WORKING-STORAGE SECTION) 
Tabellen—Léngen 

Léinge numerische Felder 
MOVE 

Léschen auf Null 

ADD 

Verarbeiten gepackt 
Nicht COBOL~gerecht gepackte Felder 
REST DIVISION 

ENTER 

KOMMENTARE 
DISPLAY 

AFTER / BEFORE 
YVOR2 


wwwvwvwvomoynNNN SN 


7 | 


3 
———— 


— 


= 


SS ee es ee 


Allgemeines 


Siilnals Programmierung kann man unter folgenden Gesichtspunkten 
sehen: 


a) Laufzeit 
b) Programmgriste 
c) Kompilierungszeit 


Welche der Kritetien den hichsten Stellenwert bekammt, mu8 abge~ 
wogen werden, Dabei spielen verschiedene Faktoren eine Rolle, z.B. 


l. Wie hiufig lauft das Programm? 
Viertelj@hrlich, monatlich oder téglich? 


2. Wie gro8 ist der zu verarbeitende Datenanfall? 
3. Keraspei chergii fe 
4, Auslastung der Aniage 


Vor allem sollte aus Grunden der Wartungsfreundlichkeit eine gewisse 
Standardisierung angestrebt werden (Dokumentation, Generatoren), 


Lauft das Programm téglich und verarbeifet viele Daten, so ist sicherlich 
in den meisten Fallen der Schwerpunkt auf schnelle Laufzeit zu legen. 
Der 2. Aspekt wire die Konfiguration, Hat die Anlage einen relativ 
kleinen Kemspefcher im Hinblick auf die zu Iésenden Probleme, so ist 
schwerpunktma8ig wenig platzaufwendig zu programmieren (einfache 
Befehlsfolgen), gegebenenfalls zu segmentieren. 


Der Aspekt Kompilierungszeit kommt nur in der Testphase zum Tragen, 
sollte aber auf jeden Fall auch bertcksictitigt werden, um die Anlage 
nicht zu stark durch Tesizeiten zu belasten. Auch aus diesem Grunde 

sollte ohne Tricks mit einer einfachen Befehlsfolge gearbeitet werden, 


Generell sollte ein Programm unter Bertcksichtigung aller Gesichtspunkte 
chrieben werden. Ob Schwerpunkte gesetzt werden mUssen und wo der 


jes 2 G 
a , sollte mdglichst vor der Programmierung ent- 


Schwerpunkt gesetzt wird 
schieden werden. 
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Optimale COBOL-Progrommierung der Serie 100 


Zeitoptimierung des Progremmlaufes 
indizierung 


Sie sollten abwdyen, ob eine Indizisrung ndtig ist, da sie zeitaufwendig 
ist. Nehmen wir zum Beispiel die Léschung eines Summenfeldes, wel ches 
aus 10 Elementen besteht; hier sollten liebar 10 Moves codiert werden, 
als es indiziert zu léschen. 


Ist der Tabellenplatz von vorherein zahlenmaBig genau bekannt, solite 5 
man den Index als ganzzchlige Konstante angeben (das ist die schnellste Version) 


(z.B.: MOVE A (3) TO 8 (7). A 


Die sehr zeitaufwendige Indizierung kann schneller gemacht werden, i 
wenn der Index dezimal angelegt wird. Alle Felder, die in einem Befehl 

mit dem Index verarbeitet werden, sollten ebenfalls dezimal angelegt 

werden (z.B. die "1" um die der Index erhsht wird). 


Ist ein Tabellenplatz weiter untertei!t, und mUssen Sie auf die Unter- 
definition zuriickgreifen, so Ubertragen Sie am besten einen ganzen 
Tabellenplatz in ein Zwischenfeld, das enisprechend unterdefiniert ist 

und kénnen dann auf die Unierdefinition des Zwischenfeldes ohne Indizierung 
zugreifen, % 
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1.1.2, 


1.1.4, 


PERFORM 


Da der PERFORM zeitaufwendig und Kemspeicherintensiv ist, sollte er 
nur dann angewandt werden, wenn es nicht anders geht. 


Besonders aufwendig ist der Perform in Verbindung mit VARYING. Wenn 
die Felder bindr angelegt wurden, werden bei dem PERFORM VARYING 
die Unterprogramme YBDC, YRISU, YCOLON, YADSU und YDEC 
bemiht, die etwa 1300 Kemspeicherstellen belegen. 


Diese 1300 Stellen sparen Sie, wenn die Felder dezimal angelegt 
werden. 


Wenn es miglich ist, sollte der PERFORM VARYING avs den oben er= 
wahnten Grinden nicht benutzt werden, statt dessen sollte der einfache 
PERFORM benuizi werden uri der Zéhler tin Unterprogromm selber 
erhcht und abgefragt werden. 


IF 


Verschachtelte IF-Befehle in Verbindung mit "AND" und "OR" sollien 
nach Maglichkeit vermieden werden, da sie fast immer dezu verleiten, 
logisch falsche Befehlsfolgen zu kodieren. Mehrere einfache IF-Befchie 
sind letchter Uberschaubar und bei einer nachirtiglichen Programmeinsi cht 
leichter versttndlich, 


Felddefinitionen 


Felder, die im Zuscmmenhang zueinander stehen, sollten die gleiche 
Struktur haben (nur gepackt, nur bindr, wenn schon mit Vorzeichen 
dann alle mit Vorzeichen, usw.). 


Auferdem sollten sie alle die gleiche Lange haben. Besonclers problematisch 
ist eine unterschiedliche Kommaausrichtung. 


Rechenoperationen sollten gegebenenfalls ohne Komma~Stellung durchge~ 
fuhrt werden und die Kommarichtung erst zum Schlu8 nachvollzogen 


werden. 


Rechenwerte, die von extemen Datentriigem ungepackt eingelesen werden, 
sollten nach dem einlesen zum Rechnen gepackt werden. Ebenfalls soilten 
die Arbeitsfelder und Zahler, in denen gerechnet wird, gepackt werden, 
da gepacktes Rechnen einen Zeitvorteil gegenvber ungepackt bringt. 


1.1.5, Drucken 


ACHTUNG! Gepufferter Drucker! 


Werden nicht druckbare Zeichen (z.8. 00, ,) gedruckt, soist das Druck~ 
ergebnis zwar optisch richtig, aber die Druckleistung wird erheblich 
reduziert! Sie kénnen auf diese Art aus einem 66,000 Zeilen-Drucker 
einen 40,000 Zeilen~Drucker machen. Eine mégliche Fehlerquelle ist 
folgendes 


Die Druckzone muf auf jeden Fall echte Leerzeichen (50, Jenthalten- | 
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Die Definition der Kopfzcile in der W ~ ST - Section enthalt an der 
markierten Stelle eine Filler-Angabe ohne SPACE. Nach dem Laden 
enthalien diese Stellen folgende Werte: 


Leal al gal gal ga | 


also nicht druckbare Zeichen. Eine Faustregal sollte sein: 

Definitionen von Druckzeilen in der Working-Storage Sektion immer mit 
VALUE SPACE, wenn an diesen Stellen der Zeile Leerzeichen gedruckt 
werden sollen, 


Achtung: VALUE~Angoben in der FILE-SECTION heben fir die Compiler 
der G-100 nur dokumentarischen Wert! 


Vorschub: 


Der Zeilentransport sollte 3 nicht therschreften, da die G-100 hardwore- 
ma8ig max. 3-Zeilentransport hat. Mehr als 3-zeiliger Vorschub sollte 
uber Kanalsprung programmiert werden, da sonst mehrere Zeilenvorschube 
intern ablaufen. 

Vorschub mit "AFTER" codieren. 


Copy 


Bei RANDOM-Verasbeitung einer indiziert-sequenticllen Datei sollte auf 
jeden Fall die COPY~Méglichkeit uberdacht werden. COPY doppeit nach 
der Eréffnung der Datei den Indexzylinder auf die Systemplatte (bei der 
Originalarbeit entweder LD oder MD), Auf die Systemplatte muB allerdings 
eine Datei mit dem Standardnamen “INDEX" angelegi sein (SFD, 8 Bit). 


Durch das Anlogen des indexzylinders werden die Einstcllzeiten erheblich 
reduziert, da der Zugriffsraechanismus der Systemplatte nach Laden des 
Programms sich auf den Indexzylinder einsiellen und dort siehen bleiben 


kann. 
Platzoptimierung 
Grundsdtzlich kann man sagen, dai die meisten Punkte der Zeitoptimierung 


auch eine Platzoptimierung nach sich ziehsn. 


Startadresse in der COBOL~Karte: 


Der COBOL~Compiler setzt cutomatisch die hichste Stariadresse ein: 
§140 im EDOS. 


ein reines Plattenprogramm, dann kinnen Sie eine wesent- 


en Sie abet 
faccae tron fartadresse in der COGOL-Karte angeben, néimlich 3600. 


lich niedrigere S 


ye 


Die Startadressen des EDOS sind: 


3600 reines MP~Programm 

3950 reines MP--Programm mit Anruf der alten Lese- und 
Druckroutine YLBSS 

4600 MP + MB-Programm 

4950 MP + MB-Programm, Konf. mit Anruf der alten Lese- 


und Druckrousine YLBSS, 


Konstanten die mehr als einmal im Programm verwendet werden, sollten 
in der Working~Storage Section angelegt werden, 


Felder, mit denen nich? gerechnet wird, sollten mit Picture "X" ange- 
legt werden, 


Man wird vielleicht, um ein Programm unbedingt in den Kemspeicher 
hineinzubekommen verstdikt nach Indizierungsméglichkeiten suchen, so 
z.B. Zébler zu Tabellen zusammenfassen. Dadurch wird das Programm 
naturlich langsamer. Paf das Programm nicht in den Kemspeicher hinein, 
so bleibt die Méglichkeit der Segmentierung. Dabei sollten nur die 
Prograramieile segmentiert werden, die relativ selten vorkommen, um 

das Programm im zeitlichen Rahmen zu halien. Das niichstliegendste ist 
die Segmentierung von Vorprogramm und SchluBprogramm (Achtung! der 
Kerienleser darf nicht heraussegmentiert werden! (auch der READ nicht). 


Zeitoptimierung der Kompilierung 


Je langer die Symbole, umso ldnger davert diz Umwandlung. 
(Naturlich sollte man nicht auf Kosten der Aussagekraft nur nach kurzen 
Symbolen suchen). 


Die Moglichkeit, sich eine Datei der Source~Programme aufzubaven auf 
Band oder Platte, ist durch das Programm GAFUPD gegeben. Das Programm 
witd, nachdem es erstmalig auf Platte gelesen worden ist, bei jeder neven 
Compilierung von Platte abgerufen und kann auch durch entsprechende 
Detailkarten des GAFUPD auf Platte getindert werden. Der Zeiteffekt ent- 
steht also dadurch, daB nicht bei jeder neuen Compilierung das gesomte 
Programmpaket eingelesen werden mu8. Die SOURCE~Datei kann auch nicht 
in COBOL geschriebene Programme enthalten. Das GAFUPD ist in der 
Broschire EDO S-Betriebssystem beschrieben. 


Um ein Programm zu optimieren, sollten auf keinen Fall APS-Routinen in dog 


COBOL-~Programm eingebaut werden (Ausnahmen bastiitigen die Regel), 
da sonst dem COBOL Argument 
“Maschinenunabhingigkeit” 


widersprochen wird und die Kompatibilitat zu anderen Serien in Frage 9estel}y 
* wird. 


Die Kompilierung lduft schnelier ab, wenn auBer der SD noch die WD auf 
die uber die INT-Karte initialistert wird, 
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COBOL-Besonderheiten und Empfehlungen 


Kompilierung 


Zour Kompilierung werden grundsitzlich 48 freie Zylinder in DOS bzw, 
24 freie Zylinder in EDOS benstigt. Ist das System ohne WORK-DISK 
initialisiert, mussen diese 48 bzw. 24 Zylinder auf der Systemplatte zu- 
sammenhéngend frei sein. Ist das System mit WORK-DISK initialisiert, 
mussen auf der Systemplatte 16 (DOS) baw. 8 (EDOS) Zylinder und auf 


ee eek 32 (DOS) bzw. 16 (EDOS) Zylinder zusammenhingend 
rel sein. 


Actual~Key 


Das Feld ACTUAL-KEY sollie grundstitzlich bei Plattendateien angege- 
ben werden, auch wenn nicht erforderlich, Tritt wahrend der Original- 
arbeit ein Plattenfehler auf, so kann Uber einen Kernspeicherauscruck 
der Inhalt von ACTUAL-KEY, der die Plattenadresse enthalt, ausgedruckt 


werden, 
APPLY CH 


CH " CHAIN (verkettete Datei); falls also eine verketiete Datei vorliegt, 
so ist die Angabe "CH" zu machen, damit das Kettenfeld Beriicksichtigung 
findet, Und da eine Verketiung vorliegt, so ist auch grundsitzlich eine 


OVERFLOW-Zone erforderlich, 


APPLY OVERFLOW 


deh. wenn APPLY CH angegeben werden mu8, dann ist auch immer 
APPLY OVERFLOW zu codieren und der SYMBOLIC KEY anzulegen 

(auch wenn nur sequentielle gelesen wird); der SYMBOLIC KEY ist zwar nicht 
mit dem Suchbegriff zu versorgen (bei tein sequentiellem Lesen), er gibt 
jedoch die Lange des Ordnungsbegriffes an. Dient zur Lokalisierung des 


Kettfeldes im Satz. 


Es wurde darauf hingewiesen, daB nicht immer Uber den INVALID-Ausgang 
n die OVERFLOW-Zone voll ist. Aus SicherheftsgrUnden 


asteuert wird, wen 
gestever selbst mitzéhlen oder Uber DECLARATIVES und USE 


sollte man entweder 
ussteVelne 


LABEL RECORD OMITTED 


Label Record Omitted ist bei Banddateien nicht méglich; Bander ohne Label 
abe 


nicht erlaubt. 


2.6. 


2.7. 


2.8, 


Einfigen 


Plattensitze, die eingefugt werden, werden in der W-ST-Section be~ 
schrieben. Der Satz hat den gleichen Aufbau wie der "Data Record 
is-Satz", nur daB der einzufgende Satz.mil_Sotzkennschlussel definiert 
werden muB, 

Hinter WRITE wird der "Data-Record-is-Name" angegeben (nicht der 
Name der Einfigzone!) 


DELETE 


Werden in einem Programm Stitze aus einer indiziert-sequentiellen Datei 
mit DELETE geluscht, so mu®8 diese Datei vor jeder neuen Verurbeitung 
reorganisiert werden. Aus diesem Grunde mu8 vor dem Befehl gewarnt 
werden, Ein DELET auf einen nicht gefundenen Satz léscht den niichsten 
eingelesenen Satz. 


Mixed-Mode~Zugriff auf eine indiziert-sequentielle Datei 


Gemischter Zugriff auf eine Platrendatei bedeutet vorwiegend sequentielle 
Verarbeitung jedoch mit einem hin und wieder auftretenden Random-Zugriff. 
Beispiel: Die Stitze der Datei “STAMM" mit den Ordnungsbegriffen von 
3000 bis 6000 sollen bei der Verarbeitung unberdcksichtigt werden, also 

erst garnicht gelesen werden, Ein Random-Zugriff auf den Satz mit dem 
Ordnungsbegriff 6001 erfolgt nach folgendem Muster. 


Die Datei ist wie folgt zu beschreiben: 


SELECT STAMM ASSIGN TO... 
ACCESS IS SEQUENTIAL 
PROCESSING IS SEQUENTIAL 
ACTUAL KEY 1S AFACTUAL 
SYMBOLIC KEY IS KDNRBEWEGUNG 


APPLY INDEXED ON STAMM 


77 AFACTUAL PICTURE X(8) 


MOVE "die Kdnr 6601" TO KDNRBEWEGUNG (=SYMBOLIC KEY) 
SEEK STAMM POSITION WITH INDEX CONVERSION INVALID KEY 
GO TO PFEHLER. 

READ STAMM AT END GO TO ENDE P 30 

IF KDNRBEWEGUNG 7 KDNRSTAMM GO TO P 30. 

hier folgen die Befehle der Verarbeitung. 


im em ES Se ae 


° 
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Prufen Eingabdaten 


Eingabedaten (vor allem von Lochkarten), mit denen numerische 
Operationen durchgefthrt werden sollen, sollten vor der Verar- 
beitung auf numerisch geprijft und anschlieBend noch mit fuhrenden 
Nullen aufgefuillt werden. 


IF NUMERICE 


Fragen Sie ein Feld auf numerisch ab, so mu8 es, damit das Ergebnis 
auch bei negativem Wert richtig wird, mit "S" beschrieben sein. 


IF FELD NEGATIVE 


Diese Abfrage ist bisher immer noch fehlerhaft und sollte nicht benutzt 
werden. 


Die Abfrage IF NEGATIVE fuhrt oft zu Adressverschiebungen. 
Die Abfrage auf negativ sollte man stattdessen wie folgt gestalten: 
IF FELD< 9 oder IF FELD NOT POSITIVE 
"EELD" muB mit PICTURE $9(n} beschrieben sein; dsgl. auch alle nach 
“FELD* einlaufenden Felder. 
iF FELD POSITIVE 


Falls das abzufragende Feld = 0 ist, so wird der Inhalt nicht als positiv 
etkannt (gleiches wide auch bei einer Abfrage auf negativ gelten}. 


Um sich eine zusttzliche Abfrage auf 0 zu ersparen, sollte man direkt 
auf < Oabfragen. 


(F-Abfragen 


if A=BMOVEC TOD 
ELSE IF D = E MULTIPLY ... 
ELSE IF P= Y SUBTRACT ... 
ELSE MOVE C TO D. : 


a) Beispiel: 


mpiler setzt Abfragen zwar optimal um, jedoch ist dieser Aufbau 
Pees ateundlich gestaltet. Aus Griinden der gréReren Ubersi chtlich- 
keit und des einfacheren Austestens sollte man eine solche Konstruktion 
in jeweils einzelne IF-Abfragen auflésen, 


2.14, 


2.15. 


2.16. 


~-10- 


b) IF (A=BORA=C) AND D=E 


Die AND-Verknipfung ist vorrangig (die Klammern sind "gedanklich" 
zu verstehen}. 


Falls diese Abfrage noch zusdtzliche Negationen mit "NOT" enthalten 
wiirde, so wire der logische Aufbau noch komplizierter, 


¢) Abfragen auf NUMERIC nicht mit OR und AND in Verbindung bringen. 
Figurative Konstanten 


sind alphanumerisch, sfe sollten nicht zurm léschen von numerischen 
Feldern benuizt werden. 


Move Space to Tabelle, fuhrt zu der Fehlermeldung COMPILER ERROR 
INTERMEDIATE CODE UNCORRECT, wenn die Tabelle mehr als 8 K 
groB ist. 


BINAR-Konstanten 
werden mit COMPUTATIONAL-I angetegt. 
Regeln: 


a) es darf kein Vorzeichen definiert werden 
b) es wird nur im Positiv-Bereich gearbeitet 
c) — Picture-Angaben: 
Der Compiler generiert 1 Byte bei 
Picture 9 oder 
Picture 99 


Der Compiler generiert 2 Bytes bei 
Picture 999 oder 
Picture 9999 


Auf 1 Byte kann max. eine Dezimalzahl bis 
255 gespeichert werden. 


VALUE-Angabe (WORKING-STORAGE SECTION) 


Es wird empfohlen, die Feldbeschreibungen in der Working~Storage 
Section in der Weise durchzufthren, da® Felder mit VALUE-Angabe 

und Felder ohne VALUE~Angabe jeweils in einer speziellen Folge codiert 
Sollten innerhalb des Bereichs der Felder mit VALUE-Angabe FILLER-Felg 
vorkommen, so sollte man diese mit VALUE-SPACES versehen, 


Werden, 
er 


° 


° 


i oe oe ee ee ll 


ee ee ee ee ee 


ae ee ee 
° 


° 
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2.18. 


2.19. 


2,20, 


2.21, 


ah es 


Der Grund fur diese Verfahrensweise besteht darin, dafi bei jedem 
Wechsel eines Feldes mit VALUE-Angabe auf ein Feld ohne VALUE- 
Angabe jeweils ein never Block auf der Platte gebildet wird. Dies 
Fuhrt dazu, daB sowohl Plattenkepazitat verlorengeht, als auch die 
Bindrstitze unndtig aufgebléht werden. 


Tabellen-Liinge 
Eine Tabelle darf nur eine maximale Linge von 8.000 Stellen haben, 
Numerische Felder 


Numerische Felder nur maximal 16-stellig anlegen. PICTURE 9 (1000) 
ist zwar méglich, fuhrt jedoch bei spareren Operationen in der Regel 
zu Fehlern. 


MOVE 


Die Ubertragung von einem mit PICTURE X definierten Feld in ein mit 
PICTURE Z definierten Feld fuhrt zu nicht voraussehbaren Ergebnissen. 


Wird ein numerisches Feld (PIC 9) in ein alphanumerisches Feld (PIC X) 
ubertrogen, wird das Ergebnis nicht tberpruft, MOVE ZERO in ein ge~ 
packtes oder bindres Feld sollte man nicht machen, sondern MOVE 0 TO 
FELD codieren. MOVE 000 TO FELD ist unnétig, MOVE 0 TO FELD reicht. 


Léschen auf Null 


Léschen auf Null immer mit MOVE 0 TO FELD, (nicht Zero, da es bei 
gepackten Feldern zu Fehlern fuhrt) und zu aufwendig ist. 


Zum Léschen eines Komma-Feldes auf Null ist unbedingt eine Komma-Nul] 
erforderlich. 77 NULLK PICTURE S9(5)V99 VALUE 0. = 


ADD 


ATOB C D wird nicht als Fehler angezeigt, sondern falsch umge- 
schlUsselt. 


GEPACKT 
Ein Feld, das mit COMPUTATIONAL-2 beschrieben ist, muB gleichzeitig 
mit "S$" beschrieben sein. 


1. COBOL-gerecht gepackte Felder 


ttzlich sind diese Felder mit Vorzeichen versehen und auch mit 


“hw nieren. Die maximale Stellenzahl betrigt 16. 


Vorzeichen zu defi 


«12- 


Beispicle: 


FELD 1 PICTURE $9(12) USAGE COMPUTATIONAL-2 


FELD 2 PICTURE SA11)V 99 COMPUTATIONAL-2 


Druckaufbereitungszeichen sind nicht erlaubt. 
Die Anzahl der belegten Bytes kann wie folgt errechnet werden: 


a) Stellenanzahl in der PICTURE -Angabe gerade: 
{Stelenanzahl : 2) +1 Byte 


b) Stellenonzahl ungerade 
(Stellenanzahi +1): 2 


Demnach belegen die Felder in obigem Beispiel folgende Bytes: 


FELD? : 7 Bytes 
FELD2 : 7 Bytes 


Die Verarbeitung von gepackten Feldern kann wie die aller anderen 
numerischen Felder erfolgen; eine Verkniipfung von gepackten und nicht 
gepackten Feridern ist in allen Befehlen zulassig; auch kénnen gepackte 
Felder Tabellenelemente darstellen. 


Da der COBOL-Compiler in ETOS-/EDOS~System Rechenhefehle gepackt 
durchfuhrt, ist die Verwendung von gepackten Feldem bei Rechenoperationen 
zu empfehlen, wogegen bei DOS-/TOS-Systemen die Verwendung von nicht 


gepackten Feldern vorteilhafter, aber nicht vorgeschrieben ist. 


Eine Verbindung von ZERO mit gepackten Felder, auch als VALUE= 
Angabe, ist nicht statthaft, stattdessen ist 0 zu verwenden. Auch die 
Angabe SPACE fuhrt zu Fehlem. 


4 soe 


‘e) 


2,23. 


2.24, 


2.25, 


2.26, 


2.27, 
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Nicht COBOL-gerecht gepackte Felder 


In den meisten Fillen handelt es sich um gepackte Felder ohne Vor~ 
zeichen. Eine direkte Verarbeitung in COBOL ist nicht zulassig, 

es mufi das betrefiende Feld mit ENTER-APS-Routinen ein- oder aus~ 
gepackt werden, 


Beispiel: 
FELD 4 PICTURE XXX oder 999; (gepacktes Feld, 6-stellig, 
ohne Vorzeichen, 3 Bytes lang) 
FELD 5 PICTURE $ (6) VALUE 0 


Auspacken wie folgt: 


ENTER APS. 
UPK FELD 5, FELD 4 
ENTER COBOL. 


Einpacken wie folgt: 


ENTER APS. 
PK FELD 4, FELD 5 
ENTER COBOL. 


REST DIVISION 


Der Rest der Division ist nicht verflgbar, kann aber zurtickgerechnet werden 
mit der Forme! Dividend ~- (DIVISOR x QUOTIENT) = REST. 


ENTER 


Der Befeh! ENTER APS oder ENTER COBOL darf keinen Paragraphen- 
namen haben. 


KOMMENTARE 


Mit * in Spalte 7 kann an jede Stelle des Programms ein Kommentar einge~ 
fugt werden. Das ist einfacher als die NOTE-Méglichkeit undmacht den 
NOTE-Befehl doher uberflussig, NOTE ist auch aus Kompatibilitatsgriinden 
mit COBOL £74 nicht mehr zu benuizen. 


DISPLAY 


die Feldnamen eathalten, kénnen fur die Testphase mit anders~ 
ins Programm eingefugt werden, um den Ablauf wihrend 
rfolgen zu kiinnen oder um Feldinhalte zu einem bestimmten 
Diese Karten miissen nach der Testphase wieder 


Display, 
farbigen Karten 
der Testphase ve 
Zeitpunkt herauszudrucken. 


entfernt werdens 


228, 


2.29, 


~14~ 


AFTER / BEFORE 
Es wird empfohlen BEFORE und AFTER nicht im Wechsel zu benutzen. 


Nach Méglichkeit sollte nur mit AFTER gearbeitet werden, da die ; 
Drucker hardware-miBig so ausgelegi sind. 


“WRITE Zeile AFTER 15 LINES" kann neverdings codiert werden 
(der Compiler macht dann entsprechende 3-er Zeilensprtinge daraus), 
Yvore 

Aufgabe 


Steuvert im EDOS und ETOS den zweiten Papiervorschub in COBOL- 


Programmen, 

Benutzte Kapazitdts 116 Bytes 

Bemerkung: 

Das Programm bearbeitet den integrierten und den gepufferten Drucker. 
Parameterouibau: 


Der Anrof erfolgt mittels eines SUB~Befehls, darauf folgt eine 2-stellige 
Konsiante mit den Werten: 


pc XL2 [PCA | L00" 


Vorschub laut 
Kanal 


Kanal-Nummer 


(QT - 08) 


oder 
pc XL2 “oot {.02"] 


| Zeilenvorschub 


Anzahl der Vorschttbe 
Ql -99) 


0 2 


gmmmnmmthtHEnEe & & 


i mat ERE EE & 


“15% 


Drucken 


Es wird wie Ublich ein WRITE-Befehl benutzt, jedoch mu8 die Anzahl! der 
Vorschibe Null sein. 


Beispiel: 


WRITE ZEILE BEFORE £ LINES 


ENTER APS 
SUB YVOR2 
oc XL2"CASI" 


ENTER COBOL 


Das Programm druckt den Saiz ZEILE, anschlieBend wird ein Vorschub 
laut Kanal 1 gemacht. 
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